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S(cis<if^UtBcJ;t\©;t)^? 
Ai/7.7^A^«o(:ffc6, iisai 

-&0i/;^7"A[::fE;fflUr^Ur 

Ur, =fct5tl:tSi®lCi5L\=fe© 



*:^ 



Sg^OT-i^ ^ 

A(C1i^x§t ■'"■"■"' """"l 

xAOTiaft^TScl:, cif®c};5 li 

gfflSit)7!)^or<5(S^?Co ii 

®r^s= '?'-Affl7"-y-f>/^ j 






+1^77^57- 



AC'jZ^ncSIS^^r-r^TUiBJ L fc 
ct[i?d:-l)„ t£ifmMZ=!^^^C 

ni'it. t'ntz[i(r)i'7.7^At>< 
mtimizi^^-h^ib'DX < i,<r)i3^^^ 

oX'^L^^'^fz(DX'$i^, ■mm-> 

:^'rAltt^XmmLfz(DX\ 'X 
'TL.<D}^(r)^-^[Ztl^ti-'t>'^X < ■& 

<r)htx\ t<Dm%t'n\z^mr 



tx-a^mx-m^^n^o +-^v^ 

t^iz±nLxi^<t\ mmimt 

tiUs yji—:>niEimzmmL 

^n^-^Bm.m^m-^Lx^i'U.- 

'<JL.7'-y7°LTt-y l^'-fv-f > 1^^ 



♦ ♦ ♦3S*^L3'!f-^-'fC^-77r^-2^3^* ♦ ♦ 



b-^5©A^:b-K-r-A(SoA^rco 

§EB#s^^l3:RPG©v-:p<^ 



?D'&^-Ct.^Ufi)SRPGor[S, 
;L/KRPGj=feLM\rfo '■P-KX 

aatSj fcorsns¥'Ui:ts-t+A;o 

'"'J^-ftf-KU'fRPGj fc'orl" 

xzz(D'9yV3yxe.\^^ziyx 

r^rfflRPG©ass^^t\fcji/ 
-jL-m^, yyyiuzmtf'i^immo 

B^6i/d;S^*»JBi/7.xA/c!:if, x- 
7Jl/S-^RPGil3:drA/;t£'y-A 



«®^>^^§IZ(J. =k^ZZl\<Df 
-A<i:L\xS"CUJ:c'<, 

6, ^ffl-y-Aris^rs^7S5:L^o 

SiJ^f-y-7iJX>ht>VX5'-7. 
Cffl^vya>XSK^:J>XC 



(J. mmmiEimzmm[.x < ^. 
znh:htmis^iizi!BiE$ni> 
-<$m.m^t^-^Lx^<. ^>^ 
^-(Dmrnttitrm^tzi-ix-Si 

'SL-^t^f£^^(DX\ mn<r>^Wi^t\:i 

(Dm.mh'H'^xSi^, ^WiLtz^ 

^'^y^'^^izU^XLiOo 

zziX'^i^tz<h. tfzh^— 
~:>t)<^i)f£<fj:-^fz. mnu. m 

m->^TA<Dl^ttibX'$i^, 




• Kr=%>-&^-l+(iB03-386l-8981(7:)«SslL 
Z(D^-h.Z^-y}l K-^RPG 

^Dmmzm^rzRFG-^mxi\ i 
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I 



<f-hoymm 

SteSODfco !! 



It. zzx-'^iib^&'-A-ji'- 

hX'm.t^itxmm^^Lxi'z 



m^txmA.xi^fzim-immt' 

^mmm^mmLx^^-^tz, 

"tziz^Bt^mt^'tBtifz. m 
mmm'^mzmAm^(7^m^m 
izmxLxi'tz^>\i^-9-m 
m.<T)yiLi3\ -^intLxn-ifimm 
^m^'^'^tz(r)x-^^o m^iiz^ 



VTL^ZJt^tin:■r^f=i6(::. UWM 
X^i^>j\>9-^m.^Y^^zt 



m±^'^ilt>ti^ztizti:^^ # 
mi2':)<7)fm^Li!bLfz. Z(n 

ft:S, ^i^, ^11, S-^c;)VTLc;)^ 



vi/>/\:/^-(Z)^^73/^ 



i P:^t 












■^CS'fN'-Vt 














>f^U(0if^;i/h^^l3:^ 



izm(DmmM^y\^iS'^xbn 
'>'A^iijjEffimt'-txbn5= 1000 

Win, tS^\ZiiB(DVTL^m 



S ^ fe < i^x.^U^^A^S§o 
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5'fh5'-i'3? 



-f-y-r-5-f:7 



'\e-r-5'-i'7 



^fm^ 



H-lDl 



H-1D5 



H-203 



H-50a 



SR-2 



SR-4 



SR-8 



SR-12 



7K-3-A 



7K-5-B 



tK-^-C 



0:!t-i3-A 



07t-ti-B 



0:^-tl-C 



>t^'J~A 



;>t^U-B 



:^-5flV-=L-n> 



ID 



10 



ID 



15 



15 



20 



85 



3D 



10 



10 



15 



15 



ED 



3D 



10 



ID 



m-r-p^t 



mTz>mm 



m^-^mm 



m-^-D^m 



IfllBltt©* 



-«©» 



-WOTS* 



— «t05* 



-«CDSf 



D-i^©a^ 



iiioros* 



OiOCDS* 



aiiJCDS^ 



UiiZXD^ 



O-tO©* 



U-(i:-:>CO& 



otooa* 



oiocDa* 



Clioffl* 



mraa* 



m©a* 



f5I«tZ?t 



S?<ifl^l±ST5 



m^m]Q±nt^ 



S^ffitfED±»t5 



iiftfi'aoists 






ftfiSSSOkm 



IISii£S50lan 



SHiiiSBDkiTt 



SSSS^10ki!i± 



Sies3S%2akn>± 



aK3S@3atini± 



flaSSE^401(ni± 



H-lDl+SR-e^r 



H-lD5+SR-4$^ 



H-S03+SR-12^r 



m BEao^ r R^ X 
tons 



e «300S r H X 

t>ns 









I^S^fS 






#«1 :l9^<?)tl#W 



m^mti^^ko z(D^^(D^mffmw^Jvu\-- 
0i9mmv]0mmt^-(y\^ 4D?K^>h 



15 



20 



30 



BO 



30 



40 



50 



60 



30 



35 



40 



50 



15 



30 



40 



15 



40 



35 



50 



35 



mm 


S 9i 1^ 


il^^g^ 


S'S 


^<>K 


H •Vi/>:«>S 


S.--:t3> 


2 


2 


S.-':fi>i 


3 


4 


S.--:fiyW 


4 


6 






AJU:^y-rK 


7 


10 




•mn^^ 


U-Jb^VBnm 


5 


8 




U-Jl^:fl>13iii 


8 


12 


\y-!U:fiyWm 


12 


14 






U-;b:0>3Dim 


15 


17 




mm^m 


RClSmir 


10 


13 




RClBinir 


15 


17 


RCIPllBl^'f^fl 


10 


13 


RCIBUHll^'f^V 


15 


17 


RCSOinn 


15 


17 


RC15(iin60e 


20 


23 


RCESmni 


EO 


23 


RC25inmHEAT 


20 


23 






RC27EfflIl 


25 


2B 




•u-*f-m 


b—tf-I 


20 


23 




U—tf-I 


20 


23 




•5-y--r;u^ 


RHSit-l-JU 


10 


13 




Rcs-y-f^u 


15 


17 


HSs-y--f;uA 


10 


13 






HSS-y-1'JUB 


12 


14 




•mmmmm 


^y-f?— tK-JI/A 


10 


13 




373"r7— 7K-JL/B 


10 


13 



m 2 : ^(omwm 






<tuzitzmii.±^m^^z>t>mzi'sti'tsi\ v-> 
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muz. 7IslS^iffl;^S^iA^r$^0 

r:>smmm^mmbz^mi-fo^r(Dz\ 




^nr-f-^n-KO 



PHOJO/:f:^^^iff- 




3— Kii^f?:?^^^ Pt-V— ?r1^ 






-a^ 



mVi(:fT-, — [ll^^.^T*p-f ?iO 

fe(7Hll±[:: 'j: -^ T (i u ^ J: ^ T'T 
?:)^. ^(iUS^^tia-^S^X'^p 

^ PT-V-(rzi- K?:-fttt-l)^^ 



1 ^'-f^^S-^y^i 7 OCD^-K 



iirniirir 



CM7 
Om7 
Em7 

FM7 

G7 

Am7 



D E (F) 
D E F 
E (F) 

F 



V^ 



A B 

A (BJ C 

A B (C) D 

A B C D H 

A B (C) D E F 

A B C D E (F) G 

B (0 D E F (G) A-^"^^'^^- 



F iJ5'-r?> 

Ax:f iJT-^ 



Sg-;s)c7)c t ^j^Lx^-^^-To - :: 
x-ifts^-r-s^- K(i. T' K ij y(Hp 

M#fp|ttl7)rt^4•^x•■rx3^; - c 

^oX^SL,J:?„ 

S 7 0(D^-K 

tv<:^-c;^2^3lS^L^-7X$S 



i'-^#(t?)f^?:^-^XSX. 

pxv-fc^nnoibnxs^bu 

St. ^-^(3|EiiL/z:b(tXfe^j: 

^z^ Px-r— 4"ff)(c^ ypx-f — 
- K^^S;bnXU'5;b-^ili--itL(f, 



MX, fe^j^s-^fc^fifBiPi^^ 
-ofz^^m^^o^xto 

Mil ^^X</-'?i.^. Key of C 

^'ti, "E-h'cri^W^^t^JiL^LX^^ 
it. zintinr)<r>'e—[-'t£A.X' 
r^\ z(r)ttX'[tt-^-$>-^fy^ 

t'cT^zi-KtztSX^JoXL* 
L^ST. ::co^— KX-t7)::^-;r— ;b 

xfc-ib-f. ■fS;bnxu§-r^xco 

g/)^'4''6^t::'d:n^ :^-:7— JUC7)— 
Us t%^X{fz$\.\ ^LX" 



x't i't-z^x^ntr xt^o 
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J zi- Y(DJ\^- \-^lZtS':>X\,^i 

zi—\-'^)i'—\'^h. ^cozi— K 
(TX^X—^'^-^Ltz^X't. oj 

h^t)i). ttliZ^^X^C^'E 

zzxtfz^^t'fsz^jit. 
^'^r^'&^'-Wo^tz\iUh. m 

t>titz^)LX\.^tr. 

7.^—)\^t^^nX. ^-Y-b-(:>^ 

>v-V'-7th -f^f-TV 

7th i^V • Ux-f T'V 

V-TTh-Tth KUT> 

v<:f— 7th. 5th Pc^iJ^V 



(z>5^ S U i -TAX ^ -9 Xt£ \. '•m^ 

^-)[^^^^^L it. X'it. t'A, 
^shin^-mmizUl^X^S^L J; 

isn^(D=i- i^zfi — ■\'-%n 

z\—h'^-^^^lzLX::^^-J\^ 
itS-^^mzL. n-Kt^-lr- 

t LX7.^-)u^T<r)Ji -: (z 1 *^ 

^J)=l— K^^Dm7(DFA>C)c7)ii^ 

1. CD EFGA B{C'i^~T» 

2. DE FGAB >C (DK'JT'V) 

3. DE-FGAB->C (.Dy^}i^T>) 

4. DE FGAB->C (Dx:t'J7'>) 

■r*\ 2. 3. 4tjfnfea-K 
-rx-To 

'^(S. =l-K^2-S-^^CLT 
CM7.Dm7^L^oilfi^{ZLTIia(- 

m^i^^ntztzHO. Dm7lZfc(t-& 




L^S=l-K^U-1'-"^!■rtf. $ 



6ti(cSS"Cord=" 

-r 71-^7 > 13: 
MgI=COEFGAB 

Mel=DEFGAB>C 
dU5/3^^CA;'3TStl(J■r■r(. 



^m^jiX'T ^ -y ^ (z-f^p-r 5 1 

X<tz$^\ 





UXhl 




190 '-_- Cord 2 ~- 












200 ' C C7 C6 A7 F Em7 
7 C6 A? F Em7 Fm C 


Dm 


C C C 




10 ■■•MWS-7M1. BAS" 


210 B2^"RRB-B-A.A G G RR DD 


RR 


RR RRB 


20 ■< MWS-7M1.BAS Cord Make > 


-B-AA G G RR DD R2 R2 






30 ■< By Y. Ki-tagami 1991 (C) > 


220 02^-000 G GG E E CC BB 


AA 


GG GGG 




G GG E E CO BB 02 G2 






50 DEFSTR A-T 


230 D2^"EEE E EE D-D-AA GG 


FF 


EE EEE 


60 ■--- INZ --- 


E EE D-D-AA GG A-2 E2 






70 T-"T120 


240 E2=''CCC C CC<A A>FF EE 


DD 


CC CCC 


80 A0=''V15 L8 05615 


CC<A A>FF EE F2 C2 






90 B0=''V13 L4 04 


250 PLAY#2, T, T, T. T, T. T 






100 ■ Melody 


260 PLAY»2. A0. B0, 80, B0, B0 






i 110 A2= "C4CDE4EFG4AGE2 G4FED2 F4EDC2 


270 ■ 






% 120 A1=A2t"C4CDE4EFG4AGE2 G4FED4 EDC2. 


280 ■— - TYPE 1 Basic — - 






1? 130 '-— Cord I — - 


290 ■ 






■- 140 ■ C G7 F C C G7 F C 


300 PLAY#2. Al, Bl. CI. Dl. El 






' 150 B1="RRRRFFFFRRRRRRRR RRRRFFFFRRRRR1 


310 ■ 






160 C1="GGGGDDDDCCCCGGGG GGGG0DD0CCCCG1 


320 '--- TYPE 2 Kitagami --- - 






170 du-eeeebbbbaaaaeeee EEEEBBBBAAAAEI 


330 ■ 






* 180 E1="CCGCGGGGFFFFCCCC ccccggggffffci 


340 PLAY#2, A1. B2. 02. D2. E2 







K-;^^fF§^IT\ =1- K<7) 
4.^-KtT/1^'f K^^x':/^L 

JWMWy'h(r>'7\y—'XX\ tztl 

T'fc^PoXu^ypx-i--T-rc 
Ir) l; y p T-v — c 2 ^^<75 =1 — 
\-'^^i1-X^tLfz. ^i-yiti 

T-To ->'P7^i'— *^->>7°JU^A~(7> 
T'=l- K?rO(tSC7)(J|^*T-r^\ 
/)^-^^^,^L^=l- K?:0{t-51Cli, 

n>znu^)h^'SL-^X't. 

h-U $ ^ fc-tf U^ ^ U- > V LX 
^X<tz$\.\ 

m^t^AXi^^tz^^^t^-.-oXl'- 
tt. fy^A:$A.fym^$iX'Lt^ 
n^£f}^-^fzmsi:'^. t'z^ti'i 

^xi^tr(DX\ T^^^ffl^. 

MLtz^-t^x-ito hLt^Uz 
tlS■t+^„ ^x^iizz^(Dzi> 

x^ i^ t llj U. WORKSHOPf^TTo 
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^BASS WORKSHOP 






■7)^9 h<r){Z-f£r>XLtl(DX'to 









1. :i—Y'(r>}\^—\-=^ 

2. 5gc7)^ 

3. zi-KcT^ju-hv 5^j-:Jj?f<;3 



4. :^->— JbJi(75^ 

5. ^-KT^^L/z^ 

6. -^-tT^ta^^c^^Z^'P— ?^ 

3-K CI 
^-:^ C2 G2 



3-K CI 
^~:^ C4 E4 G2 

4. 5(i^?:04-(f-5tL^?;g 
e^T' 3 1 11 U T-r ^\ a - K (I ^j: 

#^pv^-y^ • T'yn— f^ 

l5iJ)3-K;:j^C<75t^ 

=i-K CI 

'<— :^ 02B8>C8<E-8E8G-8G4. 



'mz^^m^ii-y[^-X(Omi\ 



v. ]ES0gfe;^^^n!z^fcDS 
to i^z>y\^~Xlt)XCD'y-ZJ'( 

c!:tf^}izr!^<7?sr, 33g0ee 



?^miA*Um-C?logftf^J:d 
X7^tlJK-U-Cl\m-S-o 



^~xmgL\SM"coiori\s 






4 3S©^-X"C0eE^^ 6 04D 







03C+8C8<F8E8 G + 8G4. 

P-K CI 

^— ;^ 02B-16B16>C8 

<D16E-16E8F16G-16G4. 

P— K S->(ZiTA^'b^-:r— JU 

0iJ)p-K;!)^Cc75t# 

3— K CI 

'<--:^ 02B8>C8<D8E8 F8G4. 

itzlt 

03D8C8< F8E8 A8G4. 



^X'±Tt}^h:zmizm5:t^o 

m)zi~h'fy<c(Dt^ 

P-K CI 

^—X 02D8F8E4 F+8A8G4 

izh^Tltt^Jit. ttz-<-X 
lzlit')V'i:-o(D:k$^£'im. U 
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yir^\ '=e? ^^ 

^^' (^. (^ 



WORKBOX 



mmcDmmmm 



\.^ozt[zt£^)tro 

7'^- h/■i(tT-[iW^^AL^*:a1](z'J: 
xm^i)^M<^^^A^x-rt2, h^ 

hKs 'M.^f^^t.^{tH:(r,Mzti 

Ws.k.x-tt\ -n(jft<ST-^ 




1 s'j-tz;^>KC0T^vu-f r^e:^TJ# 



^=fcr/cj:u 



fiE 



wm'm!:n^x\.^tt. -7^> 
'j-^-x'-^h'^^mmtm.^f- 

ib5 5 iJ-fe:']>K< h^^X\ zn 
[I]2^MT</-:f?lV SOOHztT) 

/; i: ^(^ 1 £ iJ t ^ > F^gib-y-fc 

kHz[i;N'x.T4'<''j:f;s 2kHzi7)^ 

(i21^(z'^j:S;b(tT--r. fe^. - 



TECHMuSICA 









IKHz 



2iga)bA:jn3^§ 




1 £ 'J -t ^ > K 



Xl^Sfo -^iOt". 77>v-\' 



1.5KHZ. HKHZ" 



:?^j:§ 




SOOHz 1.5KHZ 

1KHz ZKHz 



izW]<.m\:<^nmxrt^o 



< Music Workshop No. 7 

< TECH MuSlCA 

< Delay Vibrate 

< By Y. KITAGAMI 1991 (C) 

FMl = FI0. Fil, F12 

FM2 =Z, FI0, Fi1.F12 

FM3 = 

FM4 ^ 

FM5 = 

FM6 ^ 

FMR - 

FM7 ^ 

FM8 ^ 

FM9 = 

PSGl' 

PSG2= 

PSG3= 

SCCI = 

SCC2= 

SCC3= 



SCC4= 
SCC5= 

Z=Z20 

F10=T120L8M6 

: Delay Vibrate 1 



l< >] ; CI 



Fl 1=0664(02130)0210 G2>C2< 1A2130) A2I0 
(F2130)F210 



: Delay Vibrate 2 



; >! 



F I 2=T 1 B0O5S53 (FMl P I G4. M6 I40G4. ) Gl 1 0P0 
RBFRERFRERF4. G4. R4 
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\ 



Z35(D3>x:^N 



m (D 



f^ 



FwimM 



sun. y-A;:i— >-y:?g13ri Jl.<1;=&=S;gl5 
BASia MuSlCA, MIDI. t'tl^-m^X^^fz 



'r-AHiL-i>'-:;^gRP^ 



BY ^ • ^B^ ' ry 0^^- 



10 
20 

30 
40 
50 
60 
70 



EVENING GLOW OF TWINBEE3 

MSX VERSION 
METALBEAR. . , KOO KYOUNG MIN 
GRAY BOX. . . IM JUN 



100 _MUSIC(1. 0. 1. 1. 1. 1, 1. 1) 

110 .TEMPER (9) :_PITCH (440) 

120 .TRANSPOSE (200) 

130 CLEAR 1000 

140 DIM AH(]5) 

150 FOR 1=0 TO 15:REA0 At ;A>1 (I) =VAL ("&H" 
+AJ) :NEXT 

160 _V01CECOPY(A»i, 863) 

170 DATA 4046,4142.4553.2020 

180 DATA 0C00. 001E. 

190 DATA 3541, FFF0, 

200 DATA 0051. FF80. 

210 _V0ICE{§63. §9. 69. §9. 663.663) 

220 DEFSTR A-Z 

230 T=T120":PLAY#2. T, T. T. T. T. T. T 

240 ■ 

250 A1="02V15L8C2. Y16. 150etf64Y16. 1 658W64 

Y16. 180§W64Y16. 195ew6dY16. 210§W64Y16. 225 

§W64Y16. 240§*64Y16. 255eW64Y32. 21Y16. 058W 

64Y16. 20©W64Y16. 40gW64Y16. 60eW64Y16, 85eW 

64Y16. 100§W64Y16. 1 15ew64YI6, 130eW64Y16, 1 

35ew64§W2SW8G>C4 

260 A2 = "«A#2. Y16, 115§W64Y16. 130eW64Y16, 

145§W64Y15. 160§W64Y16. 175eW64Y16. 190iW64 
Y16. 205§W64Y16. 2206W64Y16, 245§W64Y32. 21Y 

16. 5ew64Y16. 20eW64Y16. 35eW64Yl 6. 50eW64Yl 

6. 65eW64Y16. 80§W64Y16. 90eW32eW2eW8»C<A# 

4 

270 A3="A28.A>EA<AG«2. SG#G# 

280 A4t"G28,G>DEFG4. <G2 

290 ■ 

300 B 1 ="0505V 1 1 L8GECGECGEGECGECGE 

310 B2='"FECFECFEFECFECFE 

320 B4 = "FECE4DC<AB>CDQV8G32Y1 7. 366W32Y1 7 

. 35eW32Y17. 34§W32Y17. 35§W32Y17, 37§W32Y17 



Xmr^X^X<tz$l\ mm^tlfziJ^tzt^ 

ir<7ix\ m^xz-!;m<tz$\^\ 
4-j3\ itms K«. ^m. mm^. $h 

oT<-S)j:T(ZLT<fc-$Lv 



=107-24 

;^u-i7m»iijtju 




. 35eW32Y1 7. 33eW32Yl 7. 35§W32Y1 7. 38SW32Y1 7 

. 35ew32Y17, 32§W32e4Vl 1< iGAB>CDD#) 4 

330 ■ 

340 C1="005V1 lLaR16GE0GECGEGECGECGEI6 

350 C2="R16FECFECFEFE0FECFE16 

360 C4="R16FECE4DC<AB>C016V2QG32Y18. 35SW 

32yi8. 348W32Y18, 33§W32Y18. 348W32Y18. 36§W 

32Y18. 34§W32Yt8. 328W32Yt8. 348W32Y18, 37BW 

32Y18. 348W32Y18. 31 8W32e04V10< {GGAB>CD| 4 

370 ' 

380 D1="Q05V8L8R8GECGE0GEGECGECG 

390 D2="fi8FECFECFEFECFECF 

400 D4="R8FECE4DC<AB>CD16 

410 ■ 

420 ■G1='Y54. 00Y55. 66Y56, 1 148254. B8B2R8S8 

SC4 

430 G3="B2S4. B8B2S4. B8 

440 G4-"B2S4. B4B4B4B8C4 

450 ' 

460 PLAY«2. A1.81.C1. Dl. "", "".Gl 

470 PLAY#2. A2, B2. 02, D2. " ". " ". Gl 

480 PLAYt2, A3. B2. 02. D2, " ", ' ". G3 

490 PLAY#2, A4. 84, 04, D4, --,-". 34 

500 • 

510 A1="02C4.04G>FEC4. <G4CEC 

520 A2="<8-4. B-4>G>E-D<B-4. F4>DC4 

530 A3="<A4. A4>EA<FA4. A4>EA<F 

540 A4="G4. G4FA4G4R8G4GG-4 

550 ■ 

560 B0="Y17. 2308W32Y17. 225i¥ra2Y17, 230eW3 

2Y17. 2358W32Y17. 230eW32Y17, 2258W32Y17. 23 

0SW32Y17, 235eW32Y17. 230#W32Y17, 2258W32Y1 

7. 230§W32Y17. 2358W32Y17, 230§W32Y17. 225fiW 

32Y17. 230eW32EFG 

570 B1="E2Y17, 233§W32Y17, 230iW32Y17. 2278 

W32Y17, 2308W32Y17, 234eW32Y17. 230eW32Y17, 

2268W32Y17, 230eW32Y17, 2358W32Y17, 230eW32 

Y17, 225§W32Yi7. 230eW32Y17. 2358W32YI7. 230 

SW32Y17, 2258W32Y17. 230SW32Y17, 235§W32Y17 

. 2308W32Y1 7, 2258W32Y1 7, 2308W32Y1 7, 235ew3 

2XB0; 

580 B2="F4. E4. 04Y17. 1328W32Y17, 130eW32Yl 

7, 128eW32Y17. 1308W32Y17, 134eW32Y17, 1 308W 

32Y17. 1268W32Y17. 130ew32Y17, !35eW32Y17, 1 

30§W32Y17. 125§W32Y17, 135eW32yi7. 1 30BW32Y 

17, 125eW32Y17, 130§W32Y17, 1358W32Y17, 1308 

W32Y17, I258W32Y17. 130iW32Y17, 135§W32<A-> 

OD 

590 B4="F4. 07E4D4C4<B>CD4GA-40 

600 ■ 

610 01='e9V1 1Q505DC<G>DC<G>DCDC<G>DC<G>D 

C 

620 C2="DC<A->D0<A->D0DO<A->DC<A->DC 

630 C4="DC<A->D0<A->D0<BGA84L16Q8B>CDEGA 

640 ' 

650 Dl="e9Vl 10705L8D16DC<G>DC<G>DCDC<G>D 



C<G>DCt6 

660 D2="D1 6DC<A->DC<A->0CDO<A->DO<A->DC1 

6 

670 D4="D16DC<A->DC<A->D0<BGAB4L16Q8B>CD 

EG 

680 ■ 

690 EI='V705L8E2. 04<G2I,G>EG4 

700 E2="F4. E4, 02. &0CD4 

7)0 E3="E2. G402SC<A>CD 

720 e4="F4. E4D2<8>004GA-4 

730 ■ 

740 G1="B2S4, B8B2SC2 

750 G3='B2S4. B8B2S4. B8 

760 G4="B2S4. B4B8S8B4B8H16H1608 

770 ■ 

780 PLAY»2. Al, B1.01,D1, El. "".Gl 

790 PLAY#2, A2. B2, 02, D2, E2, " ", G 1 

800 PLAY((2. A3, Bl.Cl, Dl, E3. "",G3 

810 PLAY«2, A4. 84. 04. D4. E4. "".G4 

820 ■ 

830 Al ="02L8Q7F4. F4>0F<FG4. G4>0G<F 

840 A2="E4. E4B>E<EA4. A4>EAF<DD 

850 A3=">D<DEE>E<EFF>0F<A>DAD 

860 A4="<A4>EA4<AEA4. >A<A4>L1 6ADE<AED 

870 ■ 

880 B0="«L32C1A-AB-B>CO-DE-EFG< 

890 B1="05L8A4. YI7, 758W32Y17, 70§W32Y17, 6 

5eW32Y17. 70SW32Y17, 758W32Y17, 70eW32Y17, 6 

5iW32Y17, 70eW32A>O4<B4Y17. 1 15eW32YI7. 110 

eW32Y17, 105eW32Yt7, 1 1 0SW32A4ABA 

900 B2="A4Y1 7, 75eW32Yl 7. 708W32Y1 7. 658W32 

Y17, 708W32G4. E4B-4Y17, 958W32Y1 7, 90eW32Yl 

7. 858W32Y17. 908W32A4. Y17, 738W32Y17, 70tW3 

2Y17. 67SW32Y17. 708W32Y17, 748W32Y17, 70§W3 

2Y17, 668W32Y17. 708W32Y17, 75eW32Y17. 70eW3 

2Y1 7, 658W32Y1 7, 708W32Y1 7. 758W32Y1 7. 708W1 

6. 

910 B3="F4G8. R16GAR8A>0<A>0D40 

920 84="D4GE8E2Y17, 2348W32Y17. 231§W32Y17 

, 228SW32Y17. 231SW32Y17, 235BW32Y17. 2318W3 

2Y17. 227eW32Y17. 23ieW32Y17. 2368W32Y17, 23 

18W32Y17, 226eW32Y17. 2318W32Y17, 236SW32Y1 

7. 23ieW32Y17. 2268W32Y17, 2318W32Y17, 2368W 

32Y17, 23ieW32Y17. 2266W32Y17, 231SW32XB0; 

930 ■ 

340 01 ="Q3L805AF>AO<AF>C<FAF>AC<BB>D<B 

950 C2="8EA>D016016016<816AGEF6>0 GFED-D 

<F 

960 03="A>C<B>CD0R8<F>C<FA>04<A 

970 04=">0<FA>C<EG>0<BAEFB-A 

980 ■ 

990 D 1 = "Q6L805A 1 6AF>AC<AF>0<FAF>A0<BB>D< 

B16 

1000 D2="R16BEA>D016016C16<B16AGEFS>D GF 

ED-D<F16 

1010 D3="R16A>0<B>ODOR8<F>C<FA>04<A16 

1020 D4="R16>0<FA>0<EG>0<BAEFB-A16 

1030 ■ 

1040 E1="F2I.FFF4G4.84.G4 

1050 E2="E4. G4. B-4B-4. A2. . 

1060 E3 = "e4V6D4E8. R16EFR8FAFAB4A 

1070 E4 = "B4>EO&C2Y20, 1348W32Y20, 13ieW32Y 

20, 128eW32Y20. 13ieW32Y20, 135eW32Y20, 1318 

W32Y20. 1278W32Y20, 1318W32Y20, l36eW32Y20, 

1318W32Y20, 126BW32Y20, 13I8W32Y20. 1368W32 

Y20. )319W32Y20. 126SW32Y20, 13ieW32Y20. 136 

§W32Y20, 1318W32Y20, 1268W32Y20, 13ieW32 

1080 ' 

1090 F3="05V6L8A4B2>020D40 

1100 F4="D4DEll.E4e4O4V10L32G16A-AB-B>OD- 

DE-EF< 



1120 
1130 
1 140 
1 150 
S16S 
1 160 
1 170 
1 180 
1 190 
1200 
1210 
1220 
1230 
F16F 



G1="B2S4. B8B2HC2 
G2="B2S4. B8B2H02B4 
G3="C4S4H8B8B4C4S4H8B8 
G4^"8404S4H8B8 H8B8H888S1 6S1 6B88S1 6 
16S16 

PLAY#2, Al, Bl.Cl, Dl. El. "".Gl 
PLAYt2. A2. B2, 02, D2. E2. "". 02 
PLAY#2. A3. 83, 03, D3, E3. F3. G3 
PLAY#2. A4, 84, 04, 04. E4. F4, G4 



A="L8F. F16>CF4<F16F16>C<FF. F16>CF4< 
6>C<FE. E16":A1='Q02'+A 



104 



1240 A2="B>E4<E16E16BEA. At6>EA4<Al 6A1 6>E 

<A 

1250 A3=-D. D16A>D4<D16D16A>D<G>G<F>G<E>E 

<D 

1260 A4 = ">E<E. E16>GE<E>CGE<A>A<G>G<F>F<E 

>E 

1270 

I 280 Bl ="V1 2L807>A4. B4. >C4QE4Y1 7, 2378W32 

Y17. 232gW32YI7, 227eW32Y17. 232§W32D4. Y17. 

ie!§W32Y17. I78§W32Y17. 175§W32Y17, 178§W32 

YI7, l8ieW32Y17. 178SW32Y17, 17SBW32YI7. 178 

eW32Y17, 181§W32Y17, l78eW32Y17. 175eW32Y17 

. 1788W32Y17, lSieW32Y17. 17eSW32Y17, I75SW3 

2 

1290 82="07<G4A484>QD4Y17. 1818W32Y17, 173 

§W32Y17. 1758W32Y17. 1 78§W32Q7C4C<B4 

1300 B3="OA4Y17. 73§W32Y17. 70§W32Y17, 67eW 

32Y17. 708W32Q6F4G4Q7A>C<B4A4QG>G 

1310 B4="E4. Y17, 237eW32Y17. 232iW32Y17. 22 

78W32Y17, 232§W32Y]7, 237eW32Y]7. 232§W32Y1 

7. 227§W32Y17, 232§W32Y17. 237ew32Y17. 2328W 

32Y17. 2278W32Y17. 232eW32<Q8G4. 07B-4. 06A4 

Q7F4G 

1320 ■ 

1330 Cl='05e9V)IQL8F4. G4. A4>C4. <B-4. A-4G 

4 

1340 C2--E4F4G4B4. A4AG4 

1350 C3="F4. D4E4FAG4F4E>E 

1360 C4="<B2. E8L16>§16DC<BA 8->B-<A>A<G> 

G<F>F<E>E<D>D«8->B-<A>A 

1370 ■ 

1380 D1 = "O5§9V10QL8F2G4. A4>C4. <8-4. A-4G 

1390 D2=''E4. F4G4B4. A4AG 

1400 D3="F2D4E4FAG4F4E 

1410 D4=-B2. a.BElBL16>S16DC<BA B->B-<A>A< 

G>G<F>F<E>E<D>0«B->B-<A 

1420 ■ 

1430 E1="802O5V12"+A 

1440 " 

1450 F]="802O5V10L8F. (,Fn6>CF4<Fl 6F1 6>C< 

FF. F16>CF4<F16F16>C<F£ 

1460 F2='B4>E4<E16E16BEA. A16>EA4<A1BA1B> 

E< 

1470 F3='D. &DD16A>D4<D16D16A>D<G>G<F>G<E 

>E 

1480 F4="E4<E. El 6>GE<E>CGE<A>A<G>G<F>F<E 



1500 G="Y54. 00Y55, 65Y56. 1 15B8H1 6B16S8B8H 

8BH16B16S8H8- :G1 =G+G+"B8H16B16 

1510 G2='"S8B4BH16B16S4"+G 

1520 G3=G+"B8H16B16SeB4BH16B16S8 

1530 G4='"H8"+G+'S16S16MB8B8S16S16M88B8S! 

6S16S16S16 

1540 ' 

1550 PLAY»2, A). Bl, CI. Dl. El, Fl. Gl 

1 560 PLAY#2. A2. B2. C2, D2. A2. F2. G2 

1 570 PLAY#2. A3. B3. C3, D3, A3. F3. G3 

1 580 PLAY#2. A4. B4, C4, D4. A4. F4. G4 

1590 ' 

1600 A0="«B-2. Y16. 1208W32Y16. 150ew32Y16 

, 180eW32Y15. 2106W32Y16. 240SW32Y32. 21Y16. 

158W32Y16, 45eW32Y16. 75eW32Y16. 90SW2eW8» 

C8<B4 

1610 A="L16D8AB>D<GA>CE8<FG>Ca<AB F8>DF< 

B>E<A>D<G>E<B>D<G8B>E'';At="02"+A 

1620 A2="<08AB>D<GAB>E8<AB>DC<FA G8>DE<B 

>D<AB>E8C8<A8F8 

1 630 A3="F8>FFE-EF8<F8>FFDEF8<B-8B-8->F8 

B-8F8-8B-F8C8 

1640 A4 = "0<C2. Y16, 150eW32Y16. 1808W32Y16, 

210eW32Y16. 2408W32Y32. 21Y)6. 158W32Y16. 45 

8W32Y16. 758W32Y16. 105eW32Y16. 1 308W2eW8G8 

>C4XA0 ; 

1650 ' 

1660 8A-"Y17. 30eW32Y17, 34ew32L32<EFGAB>C 

DE 

1670 8B="Y17. 130eW32Y17. 1258W32Y17. 1 30ew 

32Y17, 135ew32Y17, 1308W32Y17. 125eW32Y17. 1 

308W32Y17, 1358W32Y17, 130eW32Y17. I 25eW32Y 

17, 130eW32Y17. 1 358W32Y1 7. 130eW32Y17, 1 25S 

W32Y17. l30eW32Y17, 1358W32Y17. 1308W32Y17, 

125SW32Y17, l30eW32Y17. 135SW32Y17. 130eW16 

Y17, 12S@W16 

1680 B0="Y17, 225SW32Y17. 230§W32Y17, 235§W 

32Y17. 230eW32Y17. 225eW32Y17. 2308W32Y17. 2 



35§W32Y17, 230eW32O7E-4QE-lBY17,135eW16Yt 
7, 185§W16Y17, 180SW168W4C2&CY17. 1358W32Y1 
7. 130eW32Y17, 125§W32Y17. 1308W32Y17. 1 358W 
32Y17, 1308W32Y17, 125eW32Y17, 1308W32Y1 7, I 
358W32X8B : 

1 690 B 1 = ■■05L8A>C4E4EDC<A->C4D4e4F08 
1700 B2="G4. Y17, 38eW32Y17. 34eW32Y17. 30ew 
32Y17. 34ew32Y17. 38SW32Y17. 348W32Y17. 30ew 
32Y17, 34eW32AEG4. Y!7, 388W32Y1 7. 348W32Y1 7 
, 30§W32Y17, 34eW32Y17, 38SW32Y17, 34eW32Y17 
, 308W32Y17, 34BW32Y17, 38eW32Y17, 34eW32Y17 
, 30SW32Y17. 34eW32Y17, 388W32Y17, 348W32XBA 

1710 83="OA4Y17. 758W32Y17. 70eW32Y17, 658W 
32Y17, 70eW32<A4, >C4D4Y17. l85eW32Y17. 1808 
W32Y17. 175eW32Yi7. 1808W32G4. F4VI 1 
1720 B4="OE-16Y17, 210SW16Y17. 2208W16Y17, 
230§W8§W2Y! 7. 233eW32Y1 7. 2308W32Y1 7, 2278W 
32Y17. 2308W32Y17. 2348W32Y17. 230eW32Y17. 2 
268W32Y17, 2308W32Y17. 235SW32Y17. 2306W32Y 
17. 2258W32Y17. 2308W32Y17. 2356W32Y17. 2308 
W32Y17, 2258W32Y17. 230ew32Y17. 235eW32Y17. 
230eW32XB0: 
1730 " 

1740 C1="89L805FA4>C4C<BAFA-4B-4>C4D 
1750 C2="E2&EFCE&E2. L32<C0EFGA8>C 
1760 C3="L8F4. <F4. A4A-4, >04. C4 
1770 C4="Q5V110C<GDC<G>DC0C<G>DC<G>DC DC 
<G>DC<G>DCDC<G>DC<G>DC 
1780 ' 

1790 D 1 = ■■e9L805F4A4>C4C<BAFA-4B-4>C4 
1800 D2="E2. FCEiE2L32<CDEF> 
1810 D3="L8F2<F4. A4A-4. >Dd. C 
1 820 D4= "Q7V 1 0D 1 6DC<GDC<G>DCDC<G>DC<G>DC 
DC<G>DC<G>DCDC<G>DC<G>DC1 6 
1830 ■ 

1840 El="05"+A 

1 850 E2= "8) S06L 1 6V 1 0R8GAFGEFDECD<8>C<AB> 
D<B-GEB-GE<B->EG 

1860 E4^'e9V90L806D4C<GDC<G>DCDC<G>DC<G> 
DC DC<G>DC<G>DCDC<G>OC<G>D 
1870 ■ 

1880 F1="05L16D4AB>D<GA>CE8<FG>C8<AB F8> 
DF<8>E<A>D<G>E<B>D<G8 

1 890 F2 = ''ei 606L1 6V8R8GAFGEFDECD<B>C<AB>D 
<B-GE8-GE<8->E 
1900 ■ 
1910 G1=G+G 

1 920 G2=G+"B8H1 681 6S1 6SB1681 68H1 6S1 6SBI 6 
B16BH16S16S816B16BH16 
1930 G3-G+"8eH15B16S888H8B8H16H16C8 
1940 G4="Y55. 63B2S4. 88B2C4. B8B2S4. B8S2C4 
. 88 
1950 

1960 PLAY»2. A1. Bl. CI. Dl, El, Fl. Gl 
I 970 PLAYfl2. A2. B2. C2. D2. E2. F2. G2 
1980 PLAY#2, A3, B3. C3. D3, "", ■", G3 
1 990 PLAY#2, A4, B4. C4. D4. E4. " ". G4 

2000 " 

2010 AI="L8A2aA>FA<AT100F2E2 
2020 A2="C4Y16. 1608W32Y16. 1 908W32Y1 6, 220 
eW32Y16. 250eW32Y32. 21Y16, 25eW32Y16. 55SW3 
2Y16, 85eW32Y16, 105SW32Y16. 130eW!Y48, 1§W4 
Y48. 28W4Y48, 36W1 6Y48, 48W16 
2030 ■ 

2040 BA='"T100F4Y17. 68W32Y17, 3eW32Yl 7, 0SW 
32Y17. 38W32Y17, 58W32Y17. 3eW32Y17, 0BW32Y1 
7, 38W32E4Y17, 235eW32Y17. 232eW32Y17. 229eW 
32Y17. 232eW32Y17, 2358W32Y17, 232eW32Y17, 2 
29eW32Y17. 232@W32V9 

2050 88 = "Y49, 84Y1 7, 378W40Y1 7, 348W40Y1 7, 3 
1Y49. 858W40Y17. 34eW40YI7. 37eW40Y49. 86Y17 
. 348W40Y17. 3ieW40Y17. 34eW40Y49. 87Yt 7. 378 
W40Y17. 34eW40Y17, 318W40Y49. 88Y17. 348W40Y 
17, 37eW40Y17. 34eW40Y17. 3ieW40Y17. 348W40 
2060 B0="Y17, 37eW40Y17. 348W40Y17, 3ieW40Y 
17, 348W40Y17. 37SW40Y17. 34eW40Y17. 318W40Y 
17. 348W40Y17, 37§W40Y1 7. 34eW40YI7. 3ieW40Y 
17. 34eW40Y17, 376W40Y1 7. 348W40Y17. 3ieW40Y 
17. 34eW40Y17, 37eW40Y17. 34eW40Y17. 318W40Y 
17. 34eW40Y17, 378W40Y1 7, 34eW40Y)7. 318W40Y 
17. 348W40XB8; 

2070 B1="OL8V10D-1SY17, 165eW16Y17. 1758W1 
6Y17. 180SW168W8C4Y17. 1348W32Y17. 13iew32Y 
17, 1288W32Y17. 1318W32Y17. 134eW32Y17. 1316 
W32Y17, 128ett32Y17, 1318W32Y17. 134eW32Y17, 



131§W32Y17, 1288W32Y17, t318W32XBA: 

2080 B2="F16Y17. 56W32Y)7. 10eW32YI7. 1 58W3 

2Y17. 20eW32Y17. 28eW32yi7. 348W328W4Y1 7, 37 

8W40Y17. 34eW40Y17. 31 8W40Y17. 35eW40Yl 7. 37 

8W40Y17. 348W40Y17, 318W40Y17. 35iW40Y17, 37 

eW40Y17, 348W40Y17, 3ieW40Y17. 35eW40Y17, 37 

eW40Y17, 348W40Y17, 3ieW40Y17. 35eW40X80; 

2090 " 

2100 C1=''DC<G>DC<G>DCT100FC<AF>CDEG 

2110 C2="V9816L8<CEG>CE1 

2120 '. 

2130 D1="D16DC<G>DC<G>DCT!00FC<AF>CDEG16 

2140 D2='V8ei6L8<C16EG>CEl 

2150 ' 

2160 E 1 = ■" D4C<G>DC<G>DCT 1 00FC<AF>CDE 

2170 E2="V6§16L8<C16. EG>CE1 

2180 ■ 

2190 Gt="82S4.B8T100B2C4.B8 

2200 G2="81 

2210 ' 

2220 PLAY#2, Al, Bl. CI. Dl, El, "", Gl 

2230 PLAY#2, A2. B2, C2. D2. E2, '", G2 



7r'jy-^;i/gpM 



MuSICAS^lS 



CHINA 

BY #iK^±ll5 






FMl =T, A0, 81, B2 

FM2 =T, 80, 81. B2 

FM3 =T, C0, 01/4 

FM4 =T, D0, El/8 

FM5 =T, E0, El/4 

FM6 =T, F0, Fl/4 

FMR =T, R0R1/8 

FM7 = 

FM8 = 

FM9 = 

PSG1=T, P0, 8!, B2 

PSG2=T, S0. El/8 

PSG3=T,G0, Gl/8 

SCC1 = 

SCC2= 

SCC3= 

SCC4= 

SCC5= 

T=T140 

P0=e7V13L8O4 

S0=e7Vl2L16O3 

G0=e0V1 1L1605 

Gl =C4e4DS§2CCC484CD82CC 

R0=VB15VM15VS13Y22, 105Y23, 3VH13 

R1=Y22. 105BMS4HB8CB8Y22. 2558MC4Y22, 205BM 

8Y22, 170BMC16BHM16 

A0=86O7L8VM 

B0=86I50O4L8V14 

B1=A1G2A4»P4GF<A1G2<G2 

B2=A1G2A4»P2GF<A1G2A2 

C0=§48V15 

C1=03[F1G2)A& 

D0=S23L16O8V14 

E0=816L8O6 

E1=0C<AG>D>C<AG DC<AG>D>D<AG 

F0=L8V1 18330503150 

F1=AAAAAAAGD2E2 



►Wfe7=— $'■ 



<PSG VOICE No. 7> 

32' 16- 13- 6-on -off -7 

<PSG VOICE No. 0> 

32- 16' 0- 16-off-on ■ 17 

<PSG VOICE No, 4> 

32- 17' 7' 1 1-on -off- 17 

<PSG VOICE No, 2> 

32- 20- 1 1-30-off-on • 19 
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^3^ M5X =L~-vr-fr^Ea^ 
M5X7i^--) 6,CFH5X) tP^^^:SK"L 
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>Go HP^- 
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-5t. ^A:A.tz^^m^wfnmi:^f£ 
(r>mmmni:mmMm'X'B ^m 

S^.ENIACc75175"8O00i^*ff)^ 

tz^T. 



m'^fzmm^fzt'':>tzZtfi^^. 

iz y 7 h ^ X 7Uf^x-m^ L rcA 
tzS%itoT^,^?)o znuvy h 

?T.S-r=iP-y+J-7;(zouT 

$ntz^mtz-^tz, 

-f/x— • •>:^7^A^i\o 2^1(7:) 
n^. B-^(n^mizi^t>tiXi^tz. 

m(7)n-^-x\ mmm<D^im^ 



^m^m^Lx. X - yvcTD^m 

::(7)fF^(i^*(z^i^LT.3l 
il(z3^c;)xx^v^^ibif ^r 
tt^XBfz,tz^t\ mmi^ 



1 B(z3[i]fe§:g?n-rLj-?o 
m$.^n-^xi^xh. m^^m^ 

■t^zt:liXB^£\.\ 

ffffl%c;D/-a!)OTyPvx:? h^^lfe 
:^(z^Lxfcc75(J. S^28:?c75^JL 




^■^■7X^/*P*fS 



AIalig^^*5<iS 



<Dm£^^£A.tt^m.Lxm^^ 

tztzztix'h. si^m%fmiz 

zmmim-x-fmizm^mis'Si.'^ 

HSU K-r-ynmit-a^ t(j^i-u 
fst)^-z>tzi:$x^^t)nxi''^, 

Cf(r>Wct- h 22% t) ^ i: (7)1 976% 

OT 6 ^ ^ T^^? tl'd.-*^^ fco 
t()(iLfcl^i:i.^T<;5(J. Zc7)=i 
~nitJt)W.Hi]^ 1937%(ZP> 

%.<r>^^m.^\znh-z.Mzk,tz 

*-rm-cr. ^n\mAttizim. 

^z-^m^nx^^fiti^riiz. T)V^ 
U XA {f^^W,^<r>iz^<r>^m^. 

^UT, ^(r)tzsbizi$t>nfz(r) 




(DmMizim^tifz. ^E^'i-ft? 
y\z^mm?,^^9Bi2^A,tzi)m. 

^M'^tzi)t^Zilt7>X'$^^y 
^^:ti- \--izmt)^titz^^{z^ -0 

/■c M iii-r 5> c i: ^^-C^ -5 ^ fc- J: 
^) X'h'n^£ ozt fj^x-$ 5o 

L'r^■e■/c^f-'J; ta= ? ^ C. 35 ib 

f^ a. - ij > i^V •> >-CtiSP < - t 



KfzXt^ 

ztit^$)r>tzi}-h. i^ismmx 
"^^zfs-ofzu-ffz. i^-r-siz, 

- :? -c7) pjtlrffizo L ^TcoiliW 61] 

fc ^ i: 6ljeitz^S-r -5 1£ ib fc-/- < 
^«c7)Afc'o/-^fc'J:tao 

^^^fz^it'x}-t':><r>mmzm^ 

^S fe<75(Z(JS t/i < ^6i^/f 

^i)r>^wzi.itiii\ mm^m^ 
t^tztsbizmiznnt L^tf^% 
^-x^-Dtzi) Liz, ifz. mm 
^m< Lf£\,-tzsbti^im^x\ 

LT. iIft^^tziSJ^^;::^:fo 



'"J>fe^'fC7)^rB^jtL^T^H^rS](t 

S(t^t"*^-5fc„ ^tl^z*^^g;^,^ 

■mzm^Ah'J^Ut^hi'i^tzJ: 
tz. 

t<nfz!^ti\ iS[3l950%ftc7)$^ 
ift tz/i^^-b ^ •> a r jk;)|^l ^ (^ 

^mt'mhMz^tiXK^mi. z 
':>fzt-^hLnu^\ LtfL. tn 

\-^m^H^Zi:it^£ij^-^tzo 

hntz, 

^LT. 1956%c7)6^tZltrBl(7) 

^im.izmpLt^t^tz(Dt\ mm:h 

^m\:tz(7>fzr>tz. 




gp ^y f^ 



fj-u>^e/> 






:^5"^^: ^ 




JUSI5. ^#sii. Mt^ mtf^s^ 

^j:*^'"b. '^(Driiiizitim^'Misbx 

m^Hxi^fz^^. ^&^jm^ 

(m^^X'^':>inzti-v(Dm^ 
B?,m.$nx(.^tzh-^-j h>^c 



t^r. ^Q"ttm.^t\.x\.^tzh 
"tn^mtitLxi'^. vk^x. 

y^-l^<Dp^m^'^£iZ^jm.-t^^^ 
U. ■yn^'3A(D[^mizJ:-:>X',^ 

t^mzt\ m^jijf-y°±j.ztt 
'i^$-nfzmmuz''V(nmtiK is 
^^n^{.XK^^ztt^^i\ -y- 

(^5}<;5iiifeMii) ?:*«:) ■& yp ^'^ 




^iL-U>^'Vi/> 




yn<^^ixi^m 




n-etix-yxx-r^'-, ;^i-K 



CARD \_ 









• 9^ a - U > ^ 7 •> > & Hfi^-r -5 t ?■- 



1 :011R01 




1 H h i 



±)-h-m^ "y^)^ ^# ^^ m.if% 



li^*K)syn^^A^ftoz:s^fc= ^^6 

SUSroyn^^ArottSS&IJfBm-C, 'S> 

fco©is©r^(c^5^e^"i"cs^. :&^ 



1 :01 1R01 
2:01B102 
3;021R02 
4:02BL03 
5:031B03 



1 ;01 1R01 

2:01BR02 

3:02BR02 

4:021803 

5:03BR04 

6:041 L05 

7:05BL05 

8;051B06 

9:06BL07 

!0:07iR0I 

1 1 :04BL08 

1 2:088 L08 

13:081609 





AiMm^kn<^ 



^=L-uy<^^'yyusT 


1000 ■ ya* tfTi 


1780 ■ i-V r -i t-7' 




1010 SCREEN 0:WIDTH 80;COLOR 15. 1 ;CLS:f^EY OFF 


1790 PRINTiPRINTrPRINT "card data save" 




1020 CLEAR 2000:DEFINTA-Z:DIM TPJ (79) , CDS (79) 


1800 Ft="":INPUT "fi lename' ; FS 




1030 GOSUB 2400:GOSUB 2490 ■ 


1810 IF Ft="' THEN BEEP:RETURN 




1040 " ^<y t>-fy 


1820 OPEN FS + ". cd" FOR OUTPUT AS «1 




1050 GOSUB 2250:ON SL GOSUB 1080, 1250. 1330. 1410. 1710. 1790, 18 


1830 FOR 1^0 TO 79 




70. 2220 


1840 PRINT #1. CDS (I) 




1060 GOTO 1050 


1850 NEXT: CLOSE: RETURN 




1070 ■ T-7' It' (if 


1860 ■ !f<t> y T.35 




1080 CLS:GOSUB 2440:PRINT *"■"; 


1670 CLS:GOSUB 2440:GOSUB 2520:X=0:X0=79 




1090 X^0:X0^0 


1880 LOCATE X. 2: PR I NT """: 




1 100 IF X0=X THEN 1 130 


1890 LOCATE X0. 2:PRINT " ": 




1110 LOCATE X0, 2: PRINT " "; 


1900 IF TPS(X)=" " THEN X0=X:X=X+1 : IF X<80 THEN 1880 ELSE 


21 


1 120 LOCATE X. 2: PR INT """: 


60 




1130 IS=INKEYS:IF 11="" THEN 1130 


1910 00=1 




1 140 X0=X:X=X-(l$=CHRt (28)) + (IS=CHRt (29) ) 


1920 LOCATE 0. 14:PRINT "count = " ;C0: " " 




1150 IF {IS>^"0" AND II<=''9") OR {IS>="A" AND IS<^"Z") THEN 
GOSUB 1210 


1930 FOR 1=0 TO 79: IF CDt(I)=" " THEN 2110 




1940 D1=VAL (LEFTS (CDS (1) . 2) ) : IF D1=0 THEN 2160 


1160 IF 1$=" ■■ THEN It="_';GQSUB 1210 


1950 D2$=M1DS(CDS(I).3. 1) ;IF D2S = "B" THEN D2t="_" 




1 170 IF X<0 THEN X=73 


1960 IF C0=01 AND TPS (X) =D2t THEN 1980 




1 180 IF X>79 THEN X=0 


1970 NEXT;G0T0 21 10 




1190 IF 1$=CHRI(13) THEN RETURN 


1980 D3I=MI0$ (CDS (I), 4. 1) 




1200 GOTO 1 100 


1990 IF D3t="L" THEN X2=X-1:G0T0 2030 




1210 TPJ (X)^II 


2000 IF D3t="R" THEN X2=X-H :GOTO 2030 




1220 LOCATE X. 1:PR1NT TPS (X) 


2010 IF D3$="B" THEN WS="_" ELSE Wt=D3t 




1230 X=X+1 : RETURN 


2020 TPS (X) =ffJ : LOCATE X, 1:PRINT TPS(X):GOTO 2080 




1240 ■ 7-1' t' -9 a-h' 


2030 IF X2=-l THEN X2=79 




1250 PRINTiPRINT 'tape data load" 


2040 IF X2^80 THEN X2=0 




1260 FS = "'':INPUT "f i lename" ;FS 


2050 LOCATE X. 2;PRINT " "; 




1270 IF F$="" THEN BEEP:RETURN 


2060 LOCATE X2. 2:PRINT """; 




1280 OPEN F$+". tp" FOR INPUT AS #1 


2070 X0=X:X=X2 




1290 FOR 1^0 TO 79 


2080 D4=VAL (MIDI (CDS (I) . 5) ) :IF D4=0 THEN«2160 




1300 INPUT #1. TPt (1) 


2090 C0=D4:BEEP 




1310 NEXT:CLOSE:RETURN 


2100 GOTO 1920 




1320 ■ T-T r -* t-7' 


21 10 LOCATE 0. 15 




1330 PRINT:PRINT "tape data save" 


2120 PRINT "m'y r yiiiiJai v7vi~ 




1340 F$-"":INPUT "f i lename" ;FJ 


2130 PRINT 'fib *- 7 ivTir f<' 




1350 IF FS="" THEN BEEPiRETURN 


2140 IF INKEYSo"" THEN 2140 




1360 OPEN Ft+".tp" FOR OUTPUT AS #1 


2150 IF INKEYS^"" THEN 2150 ELSE RETURN 




1370 FOR 1=0 TO 79 


2160 LOCATE 0. 15 




1380 PRINT #1. TPS (1) 


2170 PRINT "ii- r Avfe-f y'yJ" 




1390 NEXT:CLOSE:RETURN 


2180 PRINT "t-fi *- 7 i'^r'U'Vi" 




1400 ■ t-y It' {^\ 


2190 IF INKEYSo"" THEN 2190 




1410 CLS:GOSUB 2440 


2200 IF INKEYS^"" THEN 2200 ELSE RETURN 




1420 GOSUB 2520:X=0:Y^0 


2210 ' yi'JiJs') 




1430 LOCATE X+4. Y+3. 1 


2220 END 




1440 1$=1NKEY$:1F IS="" THEN 1440 


2230 IF X2 




1450 Ll=- (lt=CHRS(28)) + (l$^CHRI(29)) :X=X+L1 


2240 ' fVj ;'zi- 




1460 IF X MOD 10 >^6 THEN X^X+L1*4 


2250 CLSiGOSUB 2440:PRINT 




1470 IF IS=CHRt(19) THEN X= (X¥ 10+ 1) * 10 


2260 PRINT "1 :tape edit" 




1480 IF IS=CHRJ(1) THEN X= (Xi(10-1 ) «1 


2270 PRINT "2: tape load" 




1490 IF X<0 THEN X=75+ (1S=CHRS (1) ) *5: Y=Y-1 


2280 PRINT "3: tape save" 




1500 IF X>75 THEN X=0:Y=Y+1 


2290 PRINT "4;card edit" 




1510 Y=Y- (y<0) + (Y>9) 


2300 PRINT "5:card load" 




1 520 Y=Y' (I l=CHRS (31 ) ) + (lS=CHftS (30) ) 


2310 PRINT "6;card save" 




1530 IF Y=10 THEN Y=0;1F X<70 THEN X=X+10 


2320 PRINT "7:run" 




1540 IF Y=-l THEN Y^9:1F X>9 THEN X^X-10 


2330 PRINT "8:end" 




1550 IF 1$=CHRI(13) THEN 1690 


2340 PRINT 




1560 IF IS<" " THEN 1430 


2350 ■ VRAM y^^t 




1570 PT=(X*10)*10+Y:P2=(X MOD 10) 


2360 INPUT "input (1'8) ";S$ 




1580 ON P2+1 GOTO 1590. 1590. 1610. 1610. 1590. 1590 


2370 IF SS<")" OR Sl>"8" OR LEN(SI)<>1 THEN PRINT CHRS (30) 


; : 


1590 IF (I$<"0" OR IS>"9") AND IS<>" " THEN 1430 


GOTO 2360 




1600 GOTO 1620 


2380 SL=VAL(S$) : RETURN 




1610 IF (I$<"0" OR (IS>"9'' AND 1S<"A") OR II>"2") AND II<>" 


2390 ■ r-r yj+ft 




" THEN 1430 


2400 FOR 1=0 TO 79 




1520 IF It^" " THEN IJ="_" 


2410 TPI (!)="_" 




1630 LOCATE X+4, Y+3:PRINT IS; 


2420 NEXT: RETURN 




1 640 X=X+ 1 : I F X MOD 1 0=>6 THEN X= (XV 1 0) • 1 : Y=Y-1- 1 


2430 ■ T-7* t3')'/ 




1650 IF Y=10 THEN X=X+1 0: Y=0: IF X>=80 THEN X=0:Y=0 


2440 PRINT CHRI (11) 




1660 CS=COS (PT) 


2450 FOR 1=0 TO 79 




1670 CDS (PT) =MIDI (C$. 1. P2) +I$+MIDS (CS. P2+2) 


2460 PRINT TPJ (I) : 




1680 GOTO 1430 


2470 NEXT: RETURN 




1690 LOCATE 0. 0, 0; RETURN 


2480 ■ S-r Viit 




1700 ■ ft-h' j' -J 0-r 


2490 FOR 1=0 TO 79 




1710 PRINT:PRINT;PRINT "card data load" 
1720 F$="":INPUT " f i lename" :FI 


2500 CDS(I)=" ': NEXT ; RETURN 




2510 ■ ft-r ti^y 


1730 IF FS="" THEN 6EEP;RETURN 


2520 FOR 1=0 TO 7:F0R J=0 TO 9 




1740 OPEN FS+".cd" FOR INPUT AS ftl 


2530 LOCATE 1*1 0, J+3; PRINT " " :RIGHTS (STRS (I* 10+J+1 ) . 2) ; " : 




1750 FOR 1=0 TO 79 


COJ (I*10+J) : 




1760 INPUT #1.CDS (I) 


2540 NEXT J. I:RETURN 




1770 NEXT:CLOSE:RETURN 











SET BEEP 



SET BEEP ^fe, ^M 
P ^'7 Att'TBEEP^^^-fs^-^/z 

r^^,^T^T. %lzK^fzh(r)^m 
-<l£\-^i^i2. =^mfc 1-4. ^^^ 

^'7 Ai'jrt'T'SET BEEP^fs^o t. 



-LTfcSET BEEPtlHlC^^ilft 
'bLfc'.^4-'b. iJ^ h 1 (C*mfc 
=g* ^ BASICT-fFo fc fo <?5 ^tfe-tt 

SET ADJUST 

SET ADJUST cm^, ymm) 

:ST-# -&£r.U- 7 - 8 * X'fz. 
^^^lE, >l?c7)J:T[C7°Py5A-r 

n(j; mcn^t>mhn^(7)X\ 

VDP(19)=(-XAND 15) + 
(-YAND 15)*16 
Z<D-J3=Mtzt. /\'-yxU-^<v 

tztzL. Ulz-y h L'^d.-L^iTTCtr^tt 




SET SCREEN 

^o SCREEN^^T-|S:S?n/z7. 
^U->^-F^. COLOR, yr 

>-^ ■> 3 > + — 0^/$^^^ ttl 

[zwiDTHT^:S?tifcS^5:^ 

SET SCREEN 

i:fzliXtiLXU9->^-^^ 

^-KT'BASIC;!)^'|etfir-5.o tztz 
t. SCREEN2J.:;^(7>^'v7'r v^ 

SET DATE/TIME 

BASIC(75FILES^^TiJ. 7t 

(t i:; Dosc7)DiR^^Tiig^$ n 

^:S:^>Sti. 1991:^6^8 0(75 
12^34■^56#a'b^ 
SET DATE "91/06/08" 
SET TIME "12: 34: 56" 

SET PASSWORD 



SET PASSWORD "ABC" 
ilt^m-^LX^<i:. v->>^|5 
i!lLfc£^c75:S"r hJUliMT-. M- 

T. IEL< 'ABC*i:A:^iL'^d:L^PI 

U . MSXt^^^K L 'j: < 'j: -5 1?5 fc% 

^\°^7- Ki: LTK:SX'S^c75 

a6:fi:!?=iT-o (i^^C7DAtzvv> 

■r^^:L^^,^tlo fztzU iGRAPHfr 
-J: lsT0P| ^-^^ffL4-^-'bU 

Ltl<Xh^X'^^<DX\ ttl 



f-<'}M/Uti7tt::ii-i. 
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n 
n 



m 



SET PROMPT 

SET PROMPT "Ready" 
^^t'f^^t. *Ready'A«yp > 

ib^Jl^iZ. .T;:?[irc7)mBfeT'7° 
t) "Syntax error* A^tti^d:L^J; tC 

SET TITLE 

vXT^^tlj^tZ. "MSX^oTU^ 
SET TITLE "Helio! " 



SET TITLE ,&#■§■ 



:?< Nk 2 list. 3(i5S^. 4[i 
7°h, ^LT:5"r [• ji'<r>m:^it. 

~fD>y'\~t)^:mJ:t^£-^X. /'^T. 
n~ Y(rmMi-\^7^x L S t (niu 

sE7i^(DmmmiiLx. m^ 
%^'^^tt^xm=jr^i^n^'^ 



iist2 ffilliOl^^^P^^A 



Im INPUT ";(?'J-y t-h'(0.i)>":A:SCREEN A 
|3J3f INPUT "fIDTH>":A:ffIDTH A ; ^ 

4^ INPUT "l-/*; jn>(l-i5)-;A 

5J3f INPUT "ti/*; A* 7?; <D>(0-15)";B 
f60 INPUT "A^H/ ^n>(0-15)";C:COLOH A.B,C 
|70 INPUT 'irJ^JiA- 0:OFF 1:0N >":A 
l«0 IF A=0 THEN KEY OFF ELSE KEY ON 

9)3^ SET SCREEN 

m INPUT "beep; l'fa(l-4)>";A 
^.110 INPUT "BEEP; f/'i3'J(l-4)>":B 
1120 SET BEEP A. 8 

' 130 PRINT "fm %im %K~i^~i mw^y 

140 X=0:Y=0 

150 A=STICK(0):!F A=0 GOTO 200 

160 IF (A<3 OR A=8) AND Y>-7 THEN Y=y-1 

170 IF A>3 AND A<7 AND Y<8 THEN Y=Y+1 

180 IF A>1 AND A<5 AND X<8 THEN X-X+1 




Listi e-:;f^BASicrf^§ 



•SET BEEP1 

PUY"tl20vl5o6e32" 

• SET BEEP2 

FOR 1=0 TO 13:READ YiSOUND I. Y:NEXT:DATA 158.0.166 
.0.0.0,0.60,16.16.0.104.10,0 



• SET BEEPS 

,PLAY"ti20s0ffl3950o7e8rl6c8" 

• SET BEEP4 

PLAY"tl20s0inl826o6cl6gl6el6" 




iifzo tztzL. SET TIME^ DATE 
*SET ADJUST^^^SET BEEP"^ 



i^t>^j:<Xh. i-^Mzhi^-oX^ 
-A^j:c7)T\ SP^T■SAfc^'.^^ 



190 IF A>5 AND X>-7 THEN X=X-I 
200 SET ADJUST (X.Y) 
210 IF STRIG(0)=0 GOTO 150 
220 IF INKEYSO" GOTO 220 

230 PRINT 'm ^m nn'urfi' 

240 PRINT "0:91^" 

250 PRINT " 1: PASSWORD" 

260 PRINT "2:TITLE" 

270 PRINT "3:PR0MPr 

280 INPUT ">":A 

290 ON A+1 GOTO 300. 400. 500. 600 

300 SET TITLE "":GOTO 700 

400 INPUT "A';?7-K(6t-/*-ft-f)>";A$ 

410 SET PASSWORD A$:GOTO 700 

500 INPUT '^<mm'm)y-A$ 

510 SET TITLE AS:GOTO 700 

600 INPUT 'f m' Hm' m)y -.AS 

610 SET PROMPT AS 

700 INPUT "Wn'^y^ 'fD<l-4)>";A 

710 SET TITLE ,A 

720 PRIKT:PRINT"XVf/ t^fO Vi^ 




I? ^7-/).": END 
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P^'7A(7)tftB^fo. -tijiotLT 

4"-3Tl^X. 200—240^*^ =1> 

U— V~(zSi|?-tt§5!!Sc 

;:^i7)37(]— 49fffTT\ 'IE^-1^ 
.;.^ L T fe — ^' t U ? M;ii^ 



List3 1t-f^>0:7p^'^A 



IfT A=fiND(-TIIiffi):DIMT(10^ 
2^ SCREEN 5: SET PAGE ^.^ 
3)2r VDP(lS)=0:HS-ff 
40 OPEN "grp:" AS #1 

'50 FOR 1=0 TO 15:L1NE{1«6, U6)-(255-I*6.2U-i*6).l 
5-1. BF 
;§0NEXT I 

f TI-0 • TRY TIME 
:i00PSET(112.94).0:PSINT#l.T!; 
110PSET(96.U0).0:PRINT#l,"HiGH:":HS: 
200 "'Jxir\ 

210 T(TI)=INT(RND(1)*4> 
220 FOR J=0 TO TI 

i230 ON T(J)+1 GOSUB 1000. 1100. 1200. 1300 
'240 NEXT J 
300 -l^H 
310 FOR J=0 TO TI 
320 A==STICK(0) 
330 IF (A AND 1)=«0 GOTO 320 
340 ON A/2+i GOSUB 1000, 1100. 1200. 1300 
350 IF INT(A/2)<>T(J) GOTO 400 
360 NEXT J 

370 PLAY"s0ffll0000o5tl50e4c4". "s0il0000o7tl50e4c4 
380 IF PLAY(0) GOTO 380 
390 TI^'TI+liGOTO 100 

400 PLAY"vl5o3tl50c2", "vl5o3tl50cl2". "Vl5o2tl50b2" 
410 IF PLAY(0) GOTO 410 

420 IF HS<TI THEN HS-TI:PSET(96. 110).0:PR!NT#1."HI 
^H:":HS: 



■tnA^bioo(HT. no(HT^ 1200 

-^>c 230^Ti:340?T(Z§#iAS 
tlfc. 'ON GOSUB"^^T0^a"hH 

+-t7)I]-:^-(ifcLSl.^. ^m 
(ilS±iK:S(Zi|^iSLT. yp^7 



yp >7> ^ i-s-4-M (zul;ot. 

-:»— ibL<. 4-^(7)iJ:^ 1^ IT- 

ISofc. SOUND^=^^PLAY^^ 




430 IF INKEYSO" GOTO 430 

440 A$-INPUT$(1):G0T0 50 

1000 'up 

1010 FOR 1=1 TO 7:VDPC19)=I#18:NEXT I 

1020 PLAY"tl20vl5o6e32" 

1030 IF PLAY(0) GOTO 1030 

1040 FOR 1=1 TO 50:NEXT I 

1050 FOR 1=6 TO STEP -1:VDP(19)=I*16:NEXT I 

1060 RETURN 

1100 'right 

1110 FOR 1=15 TO 8 STEP -l:VDP(19)=i:NEXT i 

1120 RESTORE 1180 

1130 FOR 1=0 TO IStREAD-YtSOUND !,Y:NEXT I 

1140 FOR 1=1 TO 50:NEXT I 

1150 FOR 1=9 TO i5:VDP(19)-I:NEXT I : , 

1160 VDP(19)=0 

1170 RETURN 

1180 DATA 168.0.166.0.0.0.0.60 

1190 DATA 16.16,0,104.10.0 

1200 'down 

1210 FOR 1=15 TO 8 STEP -l:yDP(19)=I*16:NEXT I 

1220 PLAY"tl20s0in3960o7e8rl6c8" 

1230 IF FLAY(0) GOTO 1230 

1240 FOR 1-9 TO 15:VDP(19)=!*16,:NEXT 1 

1250 VDP(19)=0 

1260 RETURN 

1300 ' left 

1310 FOR 1=1 TO 7:VDP(19)=I:NEXT I 

1320 PLAY" tl20s0iiil826o6cl6gl6el6" 

1330 IF PLAY(0) GOTO 1330 

1340 FOR 1=6 TO STEP -1:VDP(19)=I:NEXT I 

1350 RETURN 
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5BASIC.*!! 




StSd^nOSIifqi*? 



^Ml^. "963585556535753260" 
963585X556=535753260 

t, M©^5'^(acx + y)feL.< 
KCx + y-DtQ^c ;et^iS. 

®x + y+(x + y)=3i8 
@x+y+(x + y-l)=l8 

V. xt>yfeo-9?g(^a^u-c 

fflj^;^^5s x + y::^9;tf^^G5n 
^o -^^^^ 963585556®9^5^F4 

535753260CS:StC5^^^i^ 



DEFDBL A-Z 

C niS "§ ^ ;^535753260 C ^^ 

<-?o ^iiK 



10 A$=''96358555653575326jr 

2j2f A=VAL(fiIGHT$(A$.9)) 

30 FOR 1=1 TO 8 

40X=VALaEFT$(A$. I)) 

50 Y=VAL(MID$(A$, 1+1.9-0) 

60 IF X*Y=A THEN PRINT X:"r;Y:"=':A:END 

70 NEXT I 

80 PRINT 'Mn Jmr-.EW 



KhOJWyb 



10 A$="963585556535753260" 

20 PRINT "tW Xl'/= --M 

30 H=LEN(A$) 

40 FOR 1=1 TO 9 

50 FOR J=9 TO 1 STEP -1. 

60 K-H-I-J 

70 B$=LEFTS(A$. I) 

80 C$=MID$(A$. I+1,J) 

90 D$=RIGHT$(A$.K) 

100 AA-VAL(B$) :BB=VAL(C$) :CC=VAL(DS) 

110 IF CC=AA*BB THEN 140 

120 NEXT J 

130 NEXT I 

140 PRINT " 

150 PRINT " 

160 PRINT " 

170 END 



X=":AA 

Y= ";BB 

Z- ':CC 



V. iot.©d;oCs z(Dmm 
■Y^ciziz-yuT^-Dz^o m 

G0(S6B20B(^B)^ED^3ai)o #g 

^i^^uyay^L^tf^n-^^m^ 
CIS. ^m(D<^^{zmm{zrd^(D 






^t:9u 1 


=rl07-P4 


m^lE^ESfflU6-ll-l 


xu-x7m*Lue;L/ 


(^)7^X+- 


Msxv^'^'vsiiaB 


^'^^^-o^-rx^ 
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MSX turbo R 

zv^m{tsDQS2{z^-Dzmm-tEntzWi<mBAs\c 

i. MSX-JE^d:i'©S£5SB10SOiEL/U*iJffl^^* 

~ (n'^x\ DOS2C7) =1 V > K t Ir! i: 



rt' 



t> 



ISX-DOS20 
;^BASIC 

MSXOBASICCtJ. 7n-yt- 
T-V;^ raffle;) "CALL FORMAT"^, 
RS-232Cffl<7)'*CALL COMINrcT) 

a *^ MSX - D0S2 (tiT DOSS) 
(7)ROM(C(i.DOS2i;}||^K^</\* 
-(Timn'i^. BASICT'»*^n^=y 

^t= [i^3 -^-T'SS^ L fc DOS2(7) 
"HELP'-m^^'^^^^^ ifz. Aism 

Z C T1IA^BAS!CC7)^^^'> Ll¥ 

D0S2(ZW.S1 (3ti«iLyzJ;T 



41/£?iBASIC#^75^S;^?tl/-c, 



^^tZ-Pl.^Tti, liffl/^^L^Ift 



C0|ir(-'CALL"^O(t^ ■r'-f U-^ h 

D0S2i:lR]L:t#ATl^tS 
CALLCHDIR ("UTILS") 
CALL CHOIR ("..") 
CALLCHDIR ("A:¥UT1LS") 
CALLCHDRVCH:") 
CALLMKDIR ("TMP") 
CALLMKDIR ("A:¥TMP") 
CALLRMDIR ("TMP") 
CALLRMDIR ("A:¥TMP") 
'-X^Z, *CALLRAMDISK*tl^O 

g^CW. RAMt-V ^^co±^? 



DOS2ffiCD"SBUG2M.COM"i:U5i/>7K'J -:/ 



^MSX-S BUG2jtU5 
980DR [«SSiJ] ■^yy.^-ti' 

SBUGe.COM 
SBUGPM.COM 



T^, 84=^n/K'!'S^MxS 




g^MRX-DOSgg)ffiJiBASIC 



^% 


«fli :i 


FILES 


^A ^ir M-©ffiS5r^^1-6o 


CALL CHDIR 


*u:^ J-T-f V^ b y-tSHI-So 


CALL CHDRV 


:^vx V K^^:/*3eHi-So 


CALL MKDIR 


T-f v:?- hy-tf^Sc 


CALL RAMDISK 


RAM X -f X :? (^>:A; t * *S:^^ 5 o 


CALL RMDIR 


x^v:^ vy-5rmKSi-5o 


CALL SYSTEM 


BASIC d^ib DOS tcKio 



CALLRAMDiSK(O) 

[i. RAM■x'<;^^^>it^ 

CALL RAMDISK (A) 
(i. RAM-f-V;^^C75^e^+P^< 

CALL RAMDISK (4064, A) 
(J. g:'^|i^C7)RAM7"V^^%f^^ 

T. ^c;)RAMx-i':^^(7):*;?^^ 

^iSAtc-ftxr^o 

^;l?)C(3:. —It 

CALL RAMDISK (0) 

t^h. IISRAMT-V:^^^f^Ua 

^fc. TlLES^^&^tis 
FILES ,L 



FILES " • .COM", L 
(7>J:tIC. ■'\L*:d-y->3>^ig*n 

te^BASICT- fc^tfcJjfcL^ 
UCTXJ. ■'CALL SYSTEM*^^„fc 

CALLSYSTEMC'DATE") 
(75 J; C. DOS2(7) =1 ^ > K ^^g;^ 

r ^ - i: T\ D0S2izM-5/ciimii 

iS^ti-fs KT-ryAcT^JL—hT-- 
i-U^ hU-[z 
REBOOT.BAT 

n[t. D0SC7)7°P^^A(7)y-a. 

-^BASiCT-f^-5 J: ^j::: t fc "T 
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l<-3:tWR(iliWE 



T<P=il}V'7t*Jif7. 



4'fc\ MSX-D0S(UTD0S1)T' 

B^s\c^pm^^J} U myitzm^iz 

(73^. *CALL SYSTEM*=]V> K 

^cC L T-it^BASIC^lBif) L fc^^ 
^Xnr, ■'CALL SYSTEM"^!! 

;SRBASIC^^ 

^^7 7 -f V ^ ^- K*(75t:o (J m 
ttz. &rFa^ismx\ ^^r 

CALLKLEN(A,B$+C$,D-1) 

CALL KANJI 

5^-5- _C7>^^ — 3 (z^;l^ 
S, VDP(7)il®'E- Kti. mib 

^Kv-r^N— (7)9— ^x'J J'tTiii 

1S(75fc46, CLEARfi^(;J:Slg:t 

;i§„ *fc. BASIC-i'>:S'-yu 



^ — (7) ' y 7 [- 17 X T :^ :S' -y ^ * i: 

(7)T\ 'NEXT'i: 'RETURN"«MU 

JL— ?^ V'S' TOR— NExr ju- y 

4'T\ 'CALLKANJr^^^TtiL^ 

CALL ANK 




[^K^-rA-0JiA?RBASIC 






'^Ltzm^Ji<7y 1 S:^^. Jisa- K 

CALLJIS(A$, "m¥") 
PRINT A$ 

ir-fs i:. ■*-;il''(7)jisi]- KT-3!)5 

CALL SJIS 

ggtJ'CALL JlS'tlslU. tzt:^L. 
E^'rS=i-K*«'>7 hJISH- 

CALL KN J 

K<7)M[3J:U. J\St->y hJtS*^ 

CALL AKCNV 
CALL KACNV 

t-^^T^o 'CALL AKCNV'cOi^ 



^^ 


&tf$ ' . ^^^^^ 


CALL KANJI 


16X16 V'y hlSt^Ogl^*- KilS^tio 


CALL KANJIO 


n± 


CALL KANJIl 


16 X 16 y'y >S:^> ■1y?-u::^m^{2bff) 


CALL KANJI2 


12 X 16 y'-y l-]iC?Og|^*- KSrg^-fia 


CALL KANJI3 


12 X 16 V'-y VX^^ ^ :^^--U;^g^{25ff) 


CALL ANK 


gi^^-K*«|SiSt-£o 


CALL CLS 


§l^^"KffloCLS 


CALL PALETTE 


91^*- KfflOC0L0R= 


CALL JIS 


m^i JIS n^ 16 Jia^©s^?iiKiE«ii- 5 


CALL SJIS 


gl^5r •> 7 1- JIS ?!5=^ 16 it^^©S:^?fiJ(c|E 


CALL KNJ 


16ii4tfT©JIStjfc(i->7 }• JlS^^^rS^i- 
:5;^?iJ4:g|^(cS«Sti (CALL JIS ©3fl) 


CALL AKCNV 


x^mfp<o^n:sc^i^nx^Kmmi- a 


CALL KACNV 


5:^^jt^o^^3!:^t^^3:^K:g?SS1- So 


CALL KEXT 




CALL KTYPE 


^sc^a^n-ci, £ i-^^-c* 5 i^m-< s 


CALL KINSTR 


gl^ffl INSTR 


CALL KLEN 


m^m LEN 


CALL KMID 


gl^ffl MID 



CALL KEXT 

¥i(7y^<7imwof£h^n:ic^^ 
^^m^tnLx. ±^^mizixx 

t^o fzt7H£. 

CALL KEXT (A$,"AB-;||".0) 

PRINT A$ 
tr^t. #^3t?:£75 *AB V:f(t*^ 

07r^^n^t>mzo 

CALL KINSTR 



ifet 5:^iji. S:^ij2)*(;50 



tzt<r>t^fj:to 

CALL KLEN 

^m. :sc^i m^Vo hihm 

hU^n-Ji:^fz[-t(D. 2 4-'b{f:i: 

CALL KMID 

^^^■b. Sftxt2{i^<;)3t5=^iS^ 
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CALL KTYPE 
CALL CLS 

'Z>. /-fc'LiH^^-KTii, VDP 

•^^tlXl'^tzlt). SCREENO'^ 1 
^^^ L fz *CLS* A'lE L < mt)^^£ 

CALL PALETTE 

COLOR=(§-^, ^ It, W) 

tzi^. iim^ntzo 
ISX-JECD 

MSX2 + . MSX turbo K ^LT 

7~KyPH2-y+f-<7):'3-h U -y 

>7°P^'^A*<afc/tiJLT*lJffl-r 

?>il|!^^^«i^^. ^^Msx-jEa:i 

a:ft— h U -y vcTirMSX-Writejt- 



<2:m$nxi'tz<7)x\ "ttiizm-^ 

nx$fz, 

i^x(Dm'fmwfsti''^fztzisb. 

OjiTt^X'$XLt'z>tz, fzHA. 
(fMSX-WriteT-(iit)fFt^(7>(-^ 

-7^»iz\^m$nfzJEX'itm^' 

fj:i^ii\.^'?tzh(7ifz^ "t-X. z 
zX'i,t. ^E(r)JEL^.^i^l^^yJ^. h 

:fi-SQ^ 5 ^ ^4- ii-x^ifr L fi 'J/z; 

$'-*<C100HiXhT'*)-& i:5S*^«) 
cJ:9o ^LT. 'X(r)Jiif£^mX 

^imB\os^^utiitt)inz. 

LD DE,16' 256 + 
LD B, ^ — ^XUT'CT) 

LD HU'^-^xg^tTJSm 
CALL OFFCAH 

tt^TfKJ. JE(7>''x/N''rx#-^"' 

C (7>t£?IBI0S =1 - JUA^JEtzM 

JiSn-Si:, r7-^xUT(rIin 



1^ ffi3SBIOS®9-^xU 



><- 






AlST©I^MRAMd^ 
S(12B4^pyK-rS)roRAM 



J;ai3^fotSS^,76B^PA 

RAM^ig^^m:^]©RAM 
CDfffi^A^S<?^cCn(3!. MSX 



yt<D HL- 
+1 
+2 
4-3 



"r- 


-^^tf y 


T-'f ^:? 


h A- 




X n 


7 h#-% 






oi V 


}• y-#tt 






"r- 


-v<t']J 


T.f '^^ 


V A- 




;^ a 


-J }-#-t 






j: X 


h U-#Ji 





fcoJE 



■ft^CT^JE 



HL- 




JEt7)^-y^eUx^-/K^WU 



bs b4 bs b2 bi bo 



1 







^^[zJEmMsl^i^a'm-rfc 
fzit^^^'ih.^. [U 1 (75;^ D -y 1^ 
^c^-f >:$'— 7.n-y |-=i— JH" 

|HCOL^T^iVJE-80c7^-f±^i#^. 
MSX-Datapack?:^-Cl5 Ll\ 

i:; zzx[t'^SE-z^(ni±^^xh 

^^ hJL'''!z|^LXi¥L<JSiJi-r 

ifmm^mmm''izxht.-<- 

9 hJKZ(J*fS]^^}#o^zM-J5-" 



?T. -tr— ^ N't* ijx <—'<:? h 
JL-OT^t'-y h(i, ^2(z^ftfeL^i 

(jf. *MSX-Write"OT>r— /N't'Ux 
^_^^ hJKiFSH. ^WMIfM 
ftg;!?^iiiP ? n/c *MSX- Write n " 
TiiFOH^f„ i;-^(i.T:^+-^'-v 

h MSXC0:SfFPDS(7)a i: ^T-ab S 
jgftV7 h(7>*mabTerm"t7)=^JlltS 

FSHT'^-l^a^iS^^^J-'^^ct T (=fP^ 
nTL^fcfcS6(Z. MSX-Write*ffl 
(z4^oTLi^/i, IEL<(i. 

LD A,-<::>t-JU 

AND 3 

JP NZ,NOJE 
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T<7-*Jb-7tUi/7 



E»CDMSX-JECD 



tz^-h\ 'ii^ovy [•OjiT(D 

^ < (i. [D 1 C0g*J]c7)JE?:iM^T• 
LiOc nt. CC75'^1g]C75JE"t 
(i. — (^t'CT^JE'i-CT?/--^^^ S^ 

mmt. iiimB\osm7mit<r)mm 

*/z;?SBios(i. FFCAH#±■i&i:^.^^ 
(75:b- h U -y v(7)mB^^iE!yiTS 



^It. XP-yh1tXP-yh3. 

OS U^SI5<;);^i- MJ 'y->:^P'y 
h t;$;^rtg!;(c. .vfcO(73JE^^'$) 

-(tya^vAtJ. FFCAH#±t&;!)^ib 

f-3(;)jE;!)^;]^t$n^o z<ryt 
^mmz. jEff>i5)i&fbyp^'^A 

«. 7v:?c7)7cc?5[^^?r7— ^x 
-y h#^^:x>f-ij-#ite^7-y 

^ X ;b^ "b FFCAH#±fe(7> 7 -y ^ ^ 
D?.i;t. S-f:^n-y h 3(;>JEA^ 
C/a?n-5„ Z(;5JE(i. @r&<;M± 

fS:#LTfcl>fc7c<n7 -y i^^vi' 
>7Y^o ^LX>i:(z, ::!.a-yf- 

1 (7)jE7!)^Qfr/tii$n^. ^(75M 

m. ID 1 (7>J: 9 (Z. ;^n-y h1|-§- 
^^:*;#iH5i*^b)tl#(-. JEc7>— 

:^P-y t-C-b-y h?n/;«*^2 
'fSc7)JEfc(t/i*o/-''j:'b. COTjlT 

iz^m^j:mmt^^\^izmxi>^^h 




m ffi!lBIOS©?i?]|S^b©¥)li 



:^ p y V 0-0 



v^ n y f 1 



BIOS 



7-^J^y T 



(1) CALL 
MSX-JE 



7 y :?-tS:^ (5) 



i£5gBI0S t=! 
FFCAH 



■"i INIT: 

^ITRET 



^ t3 V' h 3-1 

(3) CALL 
MSX-JE 



INIT: 
^^rRET 



(2) 7 y ^^W 



{6)yy^ 




yy ij /r— > a >yp ^'7 A[i, 
#-§-Xfc-5 8 ^Anr. FFCAH# 

ta^zi-jufSo :^n-yh3{;5JE 

T. ^ifm^ntz=ET--Ait, ry< 

^ -fa ^'7 A;b^MSX(3 L ^ < O^M 
/\'-r ^#-§-^ AnX FFCAH#±te 

*^ii;5«Bios?:AaJi-r^^[t/r-<, 
EKOMSX-JE^S 

J.:UlC7)^t^ IZi^ibLV *;^ P -y 

1^ 1c7)JE?-Sf/^tfcl^''^:^.^^^ 
^A%^o t(Dtzlib<7)PDS(7)W^ 

fcjl^x•L^^^Ll^ cn7!)=iiii 

M:mz^.\,^'Z> < (Dli. FFCAH# 
Mcny. -y :^ (Zv :^ P -y h 1 C7)JEC0 
;^P-y l^#^i:, te^BIOS(7)50^ 

yp:/7A<;5#±^fe^»#iA^x-L 

tl->5^fz^ L^^L. ;^P'y|-3 

(;)JE*^5cc7)7 -y ^ iz)i^^^ f :: 
(zf^#LXL^S;S-;bA^ib'^j:i^L. 
;^ p -y h 1 <r>^Z(D^J]mity°o ^' 
^A^2[llp-;ur-5i:. iij^ffl 

L7'y^^»^^X.en/c^LX 



>^(z#x.'bn^(7)[i. te?iBios 

5r/zSt"7°P:?'5A^^^iJ— (Z 

WJL. QQSt^^^Lfzn^X-M 
^ij-tZ-^li, FFCAH#±fec;)!^^ 

^W^LXt-^h. ^ctzS-s-^c;) 

':r-->a>7°a^*^A^<FFCAH 
"7 L.t'^-Xj^^tl^Ultz, 

loooHx-'^ci-fnif. f5jfc-t+-rtz7c 

c757-y:?'^v-\'>yo lOOOH^-ib. 

7cc7):?v:?^->-\'>yX''j:< P — 

JbL. ^iiyP^'^A'x^^X^ 

fct ^ [z, nj 1 <r>}E~nm(r>m^ 
yp^^A'-^ij5'->i--5„ 

Pn^ti. yP^'^A^ri'-tZ-^ 

^^■^^mz, mmp^fztbUh. 

'/Cvit^^l^XL^-&*PLAY3t(759 

(Zi!jfF?-t+-5(Zli. ROM:b-h'J 
•y:^lz-r-&'j2^!^'$>S/c-^To 
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t Ji o T L S ^ ^z / N- K 't? X T'^ 

tfi<r>X'tt'- 

l:¥fe^(=6[alL^^ (!) %%i^fi 
<t£^tztitnr>Xh. '<— >3g[ 

U-^f-crsX'. 'im.Uhmm ' 'ikU 
Xh. ttzmf^i-hL-^i UtIS 

i}m.A.xhh?i^(DX'Ut£i^-h^t 

^'DXit:kmm^~i^h-^mi^ 
i)n^t^iiX't. 

LCD7='-rxyu-^MSX(Z^ML 

nmiz^tztizuijtifz^ M 
f-^^-^tt^ J: T [I LTi^S-To 

X-fe-g) - ^ U^m7t(DWj:<DX\ 
H:Z<nt zhit^XM^^W^^X 1 
(Z;EtLT<fc?U„ 



4-[ll{iTfTM<75LCDT-V 7.yU-^ 

(3 ^j: M J -To ^ (T^SU^ti !C 3 -fi^i 

yu— i:il> [- P-JL-LSI&m^ 
■^;b-y-T. ^Sii*^b(7>CPUT-=i> 
h p -jH"^ r i; A<T'# -5 J: t (c 
Lfzh(r>X'T. LCD^viL— JK7) 

JH1> h P— JL'fflLS!(7)HD44780 

{LCD- 1 ) Mi^s L T untsr. ^5t 

fc'{tT"fc,LM054(85:^x mX 
H2570(16X 1),LM016L(16X2X 
LM032L(20X 2XLM018L(40X 2). 
LM044LC20X 4 y£t'^imX'2imk 

znib<7)it^-HS*7Fg|5■55-c7)^t-fX 
zi > h p -jL':^>i(i[5|— T'-r^ 



'b(aC1620H-TR06x 2 ).C2020H- 
TR(20X 2 ).CC-40040B(4DX 4 ) 

*^3itEii)j:)^'mis?nTi,^jrL. 

iz-f Zi-m^X^*^'^[iM1632(16 
X 2). M24111C24X D^-fSa 

^xvyvojL To^trntziixm 
mX'^^h(n[tt-'^)X't. -tiib 

(z<ufc<75fo$)(;sTo 

{:^) 9 tl 7.m^^fFRfTt7)AD2016 
tV.^9^n°nT\ 1 6:5;^ X 2^(750 

mmmzU'^x'^-^tr. zmt. 

7°c;) t>c7)?r?M-r ^ t # (3(J1S U 

<fz^y-\ m^^<7ymwmjK^^ 

^TL^^t, B3lMc75fc(7:fc— SIS 
WA¥T"^5J:oT'-ro 



LCD- n icour 

■§-%S^-r§fcS)c75 K'y l^v I- iJ 
•y:?;^JiSM^^=i> l-P— ^- K 
v-f/N'-LSiT-Tc 16(Sg^t7)5x 
7 (7> K V ^ V h U -y ^ X(7>3t^7 
* > h ^^mU ^-y 7°*^^-*{t 

-eLCD^=i> hP-^l'T^(^^:^ 

i:"(75«i^^^ L T u S c;)T'-r *^ 
77-y l-^N'-yr— ;^{FP80/FP80A) 

To %U. Z(r>\J5Um.^^^Uu^ 

TlFl^?tlfct.(75^A-C75-r\ Z(DJ^ 

■To ifc. #^^--*f-f^(tci^ 

P - ^ C7)CPUT-^ -S 6800^6802. 
6809tL^o/iL^:bt*^68^a:Q^[f 

f^hnXl^^fzHb. MSX(C®;bn 



120 




■oxi-^tztzsbiz^ tnizmm^^m 

mf}^X'B^mMzUzh<r>i:^^t) 
fz t Tinx'h^ t [%f}-(r>iy u - 

^ it. tzfzu m^mizz8m(D 
mniLsitzini. i3.ti-ff)cpuizmm 

^'^^•■^^jiCPUiimmzmmx'B 

8086ffl (7) h <nX'to H^^ MSXH h 

PPI i82b5At£i:'WW.m^i~itt)ti 

Xl^tto 7Pvt°— 7^-!-^^=] 

>hP— 7— ^j:t\ cPU(zfife#i+ 
c7)(5 1 ^ ii'ti\ pp\tm i: J: ^--r 

^OiZ^S-oXl'-tt. 

LCD(r>mmizmLXlt. LCD-H 
mnc yp :>*^ AT-+-j>||ffl [Z'^j: U 

7 V 7. P -y h t U T jE/SJir^i-mt 

mim^ti^i}^(7^x\ cn(i-i'>5' 

-7 x-;^[ilS&=Sr^StLTLCD^ 

•y^P^Pv h(7>fi-i-^(il21'^- 
v(73S 1 (7) i: fc U X't. :^SI5X-50 

> $' - 7 X - ;^ 0S&Tii ztm*;?: 

>:?~7x-:^li]IStLCD^va 

MSX<DCPUX'^^Z80il[im.^^ 
^T■■#S-li■^„ LCD^vii.-;i.;!)^ 
'btiiTL^§^f^(i. CPUi:c75^M 
(7)m^t^±^X-to DBO-TtiT^ 



ix V t; ^S- -^iD U W;i«-§-A:^ T-r 
E^^[iSSfF^KfflA:^)X\ CC7) 

Z80^ 68^^CPUT*fca4^oT 
l^SCOii, ~C75Ef=-§-T-r= CC75 

(DX\ z(Dm^izi^m^-^t>itx. 
cpuffymffti^T^xn^ihti^^' 
^x-r.z<Dztt^h.68^umm 
^^'^^j^-^cputuft^nj-To - 
nizmLx.z8mm^mmm^< 

Sjt^b^'^^LTU^ HD64180Ri; U 
1 Z80i: V 7 f- 7 X T'il'il] W \°f^ 

tim^LSlt LT^«(7)68^fflii] 
lR]W^<^fflc7)LSIT'^5LCD-n 

^$.mm^^^X'h^Msxiz$.-o 

tt^hfi. icij^zm'^pzmx'iii: 

X hr^iz^t)^£i^(Dx-ro tzx\ 

/-co*%|pl<7)<>:$'— ^x— ;^[p1 
7x-;^[l!iES|g]T'-ro Wif^ltHh 

lismtziixr. •■^izz(7)\ciz^ 
^^xmmLxi^BiLx^. 

■^^(Dmf^x-it. ^ffuizim^t£ 

m'PiZ[i$)i) tii:A.i3\ Hj^^-r 
>fflc75P >x>1f- 4 :^tziiX't. 

\ciit^xm^^ < mi'x^-^ 

LS(P-/W-V3 ■:/ h+-}^ 
< yc;)TTLT'1-. Cn-bti. ALS^ 

^i}^'^n^x't. mt^n^<7imi^^ 

X'ALS-$"(y°^i^l^$.lfz, 
74LS02[i. 2A:':]<;)N0R[lliE&/)< 

4-pA^fcfcc73-e-r= mi:mrf^ 



1 MSX^-S'J^:^i>7ac7)fi^-K 



AitIA 



?<m^ 



1 


CSl 





3 


CSIZ 





5 


- 


- 


7 


WAIT 


I 


S 


HI 


o 


11 


lom 





13 


WH 





15 


RESET 





17 


A9 





19 


AU 


o 


21 


A7 


o 


23 


AU 





15 


AU 





27 


Al 





29 


A3 





31 


AS 





33 


Dl 


I/O 


35 


D3 


I/O 


37 


D5 


I/O 


39 


D7 


I/O 


41 


GND 


- 


43 


GND 


- 


45 


+SV 


- 


47 


+SV 


- 


49 


SOUND IN 


I 



SLTSL 
RFSH 

iSf 

BUSDnt 



A15 





Al« 





AS 





AS 





A13 





Afl 





A2 





A4 





at 


1/0 


D2 


1/0 


D4 


1/0 


DS 


I/O 


CLOCK 





8W1 


- 


SW3 


- 


+I2V 


- 


-uv. 


. a. 




t^h(DtA:(DX\ t^n^i^^Xh 

mnmt-otz<mtii}$i'^A.. m 
^x•iS9C75tJ:l.^A-ttns-^■^„ 

74LS139(J7=P- KlUS&TlJ^'.i^fc 
':)A'?X\.^^^(DX\ — aco^ 

Xtlm^liA. B. ^LTGc7)3 
^T-tc G-L(7) t: ^ (z, A . B T-ia 

^-^T^P- K[H]E§4-(7)T-ro 

74LS245ti jiji:^r^c;)x- :? / <;^ 



t j!)^T'§ STo MSX(Dtl— ]• ij -v 

^^'(>itt^xmmm^)iii^t 

c. ^<v7r-[iIliStz^^-r^fc 

c7>^^MLTUjr, CH>b<75IC 
(C, 74LS139c75i^I[HlS&?r[I12(= 

mi.fxiri^i-r<nx\ mftt^t 
^iznmLx<tz$i\ 

>fa^(=ffi^-fe 7 5 -y ^ P >7=^>Ht 
-(750.1/i F ^J^ML ^-fo ¥(-A 
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^i^-DX^tz<DX\ ^XUX'Si: 
— (7344, 45St:°>^41. 43#t°> 



tz$\.\^mmiu^t^^X'Lx 



33 /i F (Z L /c i) M)Ou F C L /c 'J L 

i±;b^^$nTi^i-r*^ 16V. h 

L < (i25VfflA^'M^T'-r„ CtLiit 

m^(nmiz^mx't. s.tz. im 
^^izm-^xh. mMm.^mmLx 
i^^fzit>. nmiz^x^m±j: i) 

±t^ii^'t^nxi-'tr. 

S^(i. MSX:fj-h U'yv^P 



- ;^ # S to ti (7) ( M C -1 59 P) fe ffl 

ilAT'MALT<fc'?L\ tfz. 
^d'^'J^MB1:^c7)MC-158tMSXffl 

m*^'jv?uc75x\ m^(^mmmm 

X hmf^if^rnx'-To 
s*5^c7jfec?5[j. o.u>^{m 

2 . 54mm) rB^Pi(Z)[i^50Pni vi^ n 
^,^ ^_;^<-pt^/zBSc7)fcc75T--r= 

PC-600iffl;:Sgm-n-ci^^ fccT) 

U^i3^t'A.^£W]$^LX^^^f)-' 



1 ffifll1-§IC(Dt:>Ei 



ru^MMMMHH, ■ ^^^IMM^^l^^lMH^^^ 






i [ i h i i 



P 



I ^ y y T 



^i.aimriiiii_n_iJiiiii 





ggoggogODaOt,! J 




«^>?-:7x-X(3:iC3-0*i^i7)gBS,T-T-# 



:, 3>/-;? i-{z£t i ■T'TL^s,, 



MIU. MSX|*!g^(7)CPU*^M1-tt-f 
St. lORQti. MSX|*)g|5(7)CPU!^^ 

l/O^ra^^j'^-tZT.LXl^St^ 

(I'j.'U ifo RD[JMSXF*gg|5C0CPU 

cpufy'hliiti$tiX^^^h(D^o:i 



:b?nxi.^^fc*(t'j:c?)X\ f|H.^ 

^--r 5 >^'5:^Uf=L^AttCPUc7) 
V - n j'JU^|g:^^4?r#3^ LX 

BUSDIRW. tl—b^} yi>XD 

V v^zmm^ntz\/Qm:^t^^T 
^Mzr^'^-^t^h^m^xr^ 

:^f^SlJ^?:LXL^I)t3[tX'-r. C 



HE 74LSl39©iiii:?'a>y^ 



^^ 



SEl£CT 

INPUTS "1 (3) 



q> 






i,^ 




INPUTS 1 (131 
2B 
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h-^^l 



A7STff)8*/-nt"C-ro 3.-- tf~ 
T'CO 8 :*;T--r<, 8 t'7 h CPU 4- h 

a> h P-^-LSIT"S)^HD44780 
(i. miztmtifz^oiz. 68^CO 

t-^J-To L^^L. MSXc7)CPU^^ 
rtS|i(7)0S&(J^Pb':i: < T fc.LCD-E 

LCS-lU.CP\Jtm^t^tzSb 

(;)74LS245^:frLTSMLS-r= 

74LS245tJti-§-c7>>Sn^:^f^^ 
a> h P— JULT^^fzii6C7)DtR 

USTc ii'^^:tt^. ^SUMSXIPJI 
;^<LCD-II ^^IJffl LTU4-^^tlX' 
(J, /\';^/\'-y77'— (iAffllJ^^ibB 
m [Iff ^3t)^'>jfEti ?) J: T (- '^A- o T <- ^ 
S T. i f; MSXtlJ^^LCD- H (nn^^ 

^ § i: S fo - m1:miT"-r . B mt>- 

(7)(J. MSXM^^'LCD- II C7)rtS[;U V 
TTc cn^HSt-r-SfcitXi, 74 



IORQ=L. RD=L, A1 = A6=A5 

= L (D-^imx\ DIR- L i: ?d:-f> =t 
vv;^nv ^(7)BUSDiRlzfc. S 

LCD-II(7)rt^CtijK'^#S i 

3#±■tec^4/^"'^ [--^xt. 

C7);b\ R/W5sr^tRSiffi^T-To r 

Zinh<r>-m^iZit. ±1— hU-yv 
::!.a-y [^(Z)?" KL':^/<:^'7'f >i7) 
M i; AO^^n^'ns*^^ ^'-y :7 t 
-^irLx^mLx\,'S.t<. ~<7) 
mm^<yyT-^-^iz[t. 74ls 

02c7>4-S^2^ffll^Tl.^S1-o 
LSI-E ?r-at;68^c?5JliaLSIc75 

(DW}f¥<Dmmx\ m^iz^-^xu. 

?r L U^JU^^ib— IS H U-<JHC L 
T. 'ttlt^h.l4ztzZfL\^^}]^lZ 

MLx^^-n^t^^}^) tr. 
m^ii-Ein^iz-^^ hti^m^ 

mT= L, I0RQ= L, A7 = A6=A5= 
L(Di:^iZ(7)^. H[^^MZf£i} 

Xh. Z80coi§^(i(i. T \-'U7.y< 
:^^-(>i)^mMzm^LX. mz 



Tfiltl-Ml^ L, IORQ= L H U^ 

!7:)T\ cnTLco-i (z-^A ibn^ 
\=^{,t^-^-^£<nX"r. ^£ii. 

mxh^t^^n zt'.zLx^^i.t 

Jl'^l t <'fr^£':>X^^i>(7)X\ f^ 

mii^^U£\.Httx'to 



umzmi^z 



—ixnu^nm-Hzwm&nxi-^ 
^mL^izmA.x'i^^z'<'jm<7y 

■^f£hTX-izZ'^C(DZ tX-L i 
T, 14P-DIP<7)ii-^(i. 14#;b*VCC 
Xl^\l>t>^Gm. 16P(75%^(i 



16#t°>!^^VCCT-8#t°>:^^GND. 
^LT. 20Pi7)%^[S20#t''>i^^ 
VCC-CiO#t°>A^GNDT-r. 

Uti) (i ~ ni-:-l31^^;,§seEff5 IC 
h^i)tLfzti\ ifLL^^-f-°<75 

L-^ti'^JH^W^Jtzl'-Ali. CQtHfiS 

se.^c;)mitLT[s. t-Oti^A 
>^:bU^'tc7)S£^X--ro i■f^ 

nt^hmMti^^}i3'hwm^n^£ 



mmx-m^x^^x'jizi 



:L 



T 
CPU dock / 
Slot clock 

Ao~A,5 

IOBEO 
WAIT 


"-■■40 


r 
/ 

— 40 






J 


V 

\ 
J 


T 


\ 


/ 




\ 


\ 

y 


\ 
J 


\ 
/ 


V 


\ 




' 














V 




/ 








13! 








/ 


141^ 






\ 








^" 


BWiSS 














_/ 














WR 

Do— D? 






^ — 1. 
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~ 


120 








V 




















-/ 












\ 








/ 


















RD 

Do~Dt 

BUSDIR 






— - — . 
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1*3 




/ 






\ 












■. — . 


mnao 


_y 




V 














_^ 


? 


— 




rFtr>2t)0 


^ 
















~\ 
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v\u^Mmyu^'jo^^^y<j=du 


Vit ► 

GHD 

OSCi -* 

OSCs • 




! 




T' Kl'3 I 1 




1 — 1 




, "nm^»-(«;i 


1 ''= •'"™ 








7 > 


'> 








>f? 


- 




'f t— ] 


'•H; 


. 


I >t 


^ ■ COM, -COM, 5 


HS • 

FVW • 

IHl--DB7-M-» 


1 




BSJ'-lrllAU 

lODJlAU^ 
B X 6 t V 1- 

r 










■' 


■ 

a 


« 








')' 




=. 


J 




n 


■V,— 


lill — ! 

(CGBSU 
SI ! I; ■/ 1- 




S-'- ^ 


-^-«- SEOl- SES« 


V3 ■ 






L^ ^ 


1 




Vs 




nnRASH 


_* . 
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t^t. ioi<7)fzSblz:3>T-'>V— 
■To zn^^nm£fx-U. *^:^J 

)^mzmnLtzi:z^^mizm'^ 
x^^< tmm^^tfy-wBj^^n^m 
mizm^)tr. s.tz. wm^iw: 
u.-^mitn^>(t<iz-^izztz 

nr>x. mzmn^:i^"yi'Vn^£ 
■oij-i) tmz^,\sxmmzmi)^s. 

^ .■■ ■■^ ■.■■ ■■..«mr»«>»Tina 

BASICr=l>SP-;b 

t7x7^^''jZ^X-r„ 

i/07'Ku;^c75»iJUMUii. o# 
±a^^l*lg|5x— :^ u ■:^ ;^ ^ — (DR) 

^^^m. 3 sti&j^^-r > 7. 1^ V ^ 



> h □ -JU^x t'ti^'B tt. t tz. 
-r-->-^7-rXfc::c73i^vx^— 

^ifrLXnUo ztlztsi) t-To 

^#tz -r - -> -V' 7 -r :X(D-^iiti' b 

hX-to 8t'-y t-iW^. 2'i^m7F. 
X^y :t > h 5 X 7 (Z|^ L i fo 

OUT 3,&B00111000 

?rii^-rs/c(tx--ro ^nti. /-^ 
c^:(Jx•#s■a■^o hLW^t^i 
m^^^ximLx<tz$i\ 

5(zSi:4ftTL^^(75X^ ^n^# 
^L4■;!)%l^^x</c^^.^ 

'XlZm7^^^>lZL. tS — VJly 
OUT 3,&B00001110 

ti-y)i'^f^M^-^tzi^m^i.t. 

OUT 3,&BOO00ini 

$iilli. x>h iJ-^-K-fe-y 
l^^^4"^/i'[tX'T. ^^RAMIZ 

}l'(DW'W}yj\^^^SMLfz^}. ^^ 
KitX'iiTo 

4--5t. mxM%''iT^j:oiX'im 

miz'iff£r)tz:r> h U-^- Kt 
iiiS:^^^ :? 'J T-T-a t # (i. 

OUT 3,1 



^zi:izt£i)ito 

mmmyi^it'e(Ditx\ ij-v 

MtM^^^-^7ni>iya>izmL 
OUT 3,2 

OUT 3,&Blnnnnnnn 
^'M'rrLS-'to nnnnnnn(7)g|S-^lZ 

miv-itm (r K u X ) ^^i:^ Lit; 

H. 2fi^@/)-'40'-67H(7)f5S|X^| 
AC=INP(1)AND &B01111111 

x^ b n § AC;^<^^i'±Kx-r , 

LCD- !I F*3g|5(Z(±.S^ffl(;)RAM 

A^'8ci/\'< h-^rta^nx^-^^-ro 
*:t*(;3S5^fc'(tx-r= cco^[z:fg 



:&Nli(C m'&tl' ^ OF#±tfeS XC75 
±fe^^b4F#±-t&SX-C016/W h-^ 

on-sz/N'-r h-^fc'(txr= iiSv 
y h ^fi^4-T i:. PinxL^^Si5r9- 
^Wi<$ti^ziiizf£i) tto m 
M=i > h D-}[^<D^^it:$i:mxM 

fjSTA^ is^xiia i t; t. n 

^(ciif^LXS1^-Xu;!)L^64•- 
t^KLX^Ui'tmmX'$^A:i^ 

t^x^tr. ifomf^izf-^]^> 

i>LX. f3tL6UfflJt^J.o[t 

x;sfflLx^x<fz^Lv 

■y->yjbyp^'^Axii. i"'^ 
X(7)ai^^ii?f L X u s -t+^7i^ 

■n^J:T(3L/cOfoUTr. P«^-* 
^A-BASICyP^'-7A4'«X% t < 
(ClSiBj^LS-a-A;:)^ SrS-X^S 
LL/=fJ«^x-:?^E^fc'JL 
xmx^X<fz$^'. "tHX'ii. 
Zi^n^izitzo 



mm4 - 


r>7.S^^^a> 







-f>Xh5^'>a> 


3 - K 


mm 


RS 


R/W 


DBT 


DSG 


DBS 


DBS 


0B3 


DB2 


DBl 


DBD 


l^:?'JT- 











Q 





a 





a 





1 


:'?— lIODRAM(n0S!S%t> f-o 


A— VJLflT— A 


B 




















D 


1 


• 


»5i«-S^tfr.DDRAMi7)fiSit., 


I>^=J^e-^■t■y^ 











D 





□ 





1 


i/D 


S 


1 3 i;^«!taSfl'S'i-*)n*, 


3^iT>^7a> !• n—ji- 








B 











1 


D 


C 


B 




fi—VH; ftSi.7 h 


D 





Q 








1 


s/c 


R/L 


■ 




OD RAM<7)i^SSiEA?'i:A — yJt. 


77>?->a>-i!>vh 














1 


DL 


N 


F 




■ 


•<>*'-7i~-:*v^-?fi(DL), « 


CGRAM7t■■^^■t■v^ 





a 





1 


Act 




0DRflM7Fl.;*-fevt- 





a 


1 


Add 


DDRAMOTT-KL-xS-t-:' ^.C(nft 
t, 'f'JE '(T*y-? IS. DDRAM 




o' 


1 


SF 


AC 


(BF), TFU^f^-SV?— OOffJ^S- 


CGRAM DDRAM 


1 





Write data 


DD RAMJfcaCGRAMlIf-??-* 

sat. 


CQRAM. DDRAM 


1 


1 


Rtafl Dais 


DD RAM i t i JCG RAMfr fj ?- ? 5- 


m 


(n->7 M, S/ODl»-VJ^f)»»)R/L^!(;& 
•>7t-), R/L-0(*->7 h). DL=1[8 t^x 

ffl. F-Il5xtK V f-). F=0!5X 7 K v 


DD RAN*-— -RSts-SRAM 

CGRAW *i.^??— :^i?l — ?— 

RAM 

Aco CGRAWJjyhV:* 

Adit DD RAI*/)?" KU-5, fl— VA. 

AC- 7 KL':^:^'?>S— "C-, DD RAM, 

CGRAM10S;SCt,ffiL>5 



124 




■«5 S*^^t'7S 


OUT 3,&B00111000 


y?" >i''>.3l>l!'^r^^^^'''"" "" ' 


OUT 3,&B00001110 


W^^>. ii — Vik^> 


OUT 3,&K)00Qlin 


tf-V Ji-^aS 


OUT 3,&B0000D1fl0 


t-V}Ui:^iZ^m 


OUT 3,&B00000101 


mm±i^(n:^i^y h 


OUT 3,&B00000110 


S-VJL-i&^l=^t& 


OUT 3,&BOO0OOni 


mm-^i^<r>^->y b 


OUT 3,1 


mm±i^^i^ *} T- 


OUT 3,2 


:ft — 7JH:iS^*-A.1?->'i' aXZ^t" 


OUT 3,&800010000 


;ft-V;i'&K^*Cv'7 h 


OUT 3,&B00010100 


A-vju&B^*i;->7h 


.OUT 3,&B0OQ110O0 


^^-fe*^?r^H->-7h 


OUT 3,&B00011tOO 


m.w-kwnr-^r-'^'7 V 


OUT 3,&81nnnnnno 


A-VJUfeS^rffiStOitflFFt-^IS. 




nnnnnnni7>6|i*(l^JKii«(3' KU^O^IS^ 


; AC=JNPCl)AND&B01}Jiy} ^ 


•mifmM^%^^i^ 



\v-yy)byn<^'^A 



LCD-f>^-:7x^X 



M1 



BUSDIR 



lORQ 



WR 



RD 



A7 



A6 



A1 



AO 



A3 



A2 



A5 



A4 



01 



DO 



D3 



D2 



D5 



D4 



D7 



D6 



GND 



CLOCK 



GND 



44 SW1 

45 +5V 

46 SW2 

47 +5V 



U2A 



YO A 

Y1 B 

Y2 ° 

Y3 G 

74LSi5d 



15 



U2B 



13 



14 



G 

B 

A YO 

7415156 



Y3 

Yl >" 



12 



100 'LCD'' a7'H3:'tSl~* 
110 ' by Taka.S 
!20 OUT 3. SSaai IK 
130 OUT 3.8800001114 
140 OUT 3, i 
150 OUT 3. 1 
2B0 RESTORE 600 

210 FOR Ul TO 29- ■ 

220 READ FTt 

230 CHJT 2, ASC(FTt) 

240 NEXT 

300 RESTORE 700 

310 OUT 3, &6i 1000000 

320 FOR 1=1 TO 3S 

330 READ FTt 

340 OUT 2. ASC[FTt) 

350 NEXT 

400 FDR 1=1 TO 40 

410 OUT 3, &B0B0n000 — 

420 FOR J=l TO 150;NeXT 

430 NEXT 

440 FOR 1=1 TO 40 

450 ffliT 3. iB000in00 

460 FOR J^0 TO I 50; NEXT 
470 NEXT 

use FOR J=0 TO 1000:NEXT 
490 OUT 3. 1 



Z'ff'^Tp)' 






-:h-V!l-ik».^2-nE'9tmiZf$Wi&m' 



-??:^'a:<*$-ff->7 hi" 5 



-«*t:1*:fr^->7 l-t'S. 






495 FOR J=0 TO i000;NEKT 

600 OUT 3.1600000111—— 

510 FOR DT=I.H20 TO !,H7F 

520 OUT 2. DT 

525 FOR J^0 TO S0:NEXT 

530 NEXT 

540 FOR DT=SHAa TO SHFF - • - 

550 OUT 2, DT ' , ' - 

5SS FOR J=0 TO 50; NEXT 

560 NEXT 

570 GOTO 400 

600 DATA *, A,S, C. 1. I. *, ' -, M, S, X. " ", m, a. g, a, z, i, n. e. ' ". H, A. R. D, W. A. R. £, 

700 DATA H, D. 4. 4. 7. 8,0. [. L, CD, ~, !, DA.t.i.^, i.f.f. >. 1 

710 DATA '",■'. 6, y, " '.E.*. ' ', t;S, / 



U1B 



UtA 




74LS02 



74LS02 



U1C 



01 D 



11 



12 



ll 




10 



US 



19, 



A1 
A2 
A3 
A4 
A5 
A6 
A7 
A8 
G 
DIR 



13 

74LS02 

18 



74LS02 



17 



15 



10. 



14 



11 



13 



12 



12 



13 



11 



14 



Z57 



74LS24S 



5K VR 




R/W 



RS 



DO 
D1 
D2 
D3 
D4 
05 
D6 
D7 



vcc 
vo 

GND 



Z^ 
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,MSX:?P^5'7-fg«ltB 





BASIC. 7'tz>7''^-(b<n(^3CDGMigo W«^> 

<Gwmi^mhv<tiztzAit. ^miTe>{^z(D. cm 




m cmm^z<^hjU=km 




XX^tZo ttzMSm<^f—Ay 

yhx'h. cmm^i^r>xf^hti 



ii^h^t r>fzZ(DZi~i—X'lt, 

T. Msxx-mmmzmoztt' 

T"#i.MSX-BASIC[COUT%;l 



hm^fX'^^o 

Ui::A^±.i.fhn^tz^Oo !5^w 

h(r>ztuBASic<7}mntzw^m 
(Dfzo ^izimtLxit 

/^^Wi(i[E3ijL(c< <, yp^- 



a>fte^^c7)S^i6*^il:«6^^A- 
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tnh(r>^sz'7\.^x[t^n]i}^m 
'Smm^x\.^$fz^^ii^n. 



^CTl''J-)l^^^^ 



u^ vxwm^^fi^yT-^Mz^ 



t\ Z(r>n-i—X'm-frthya 

'',^-^n':>x\.^^Wkik-^m\zwm 

^SZ M L T (if j!<?^^61i'j:gI5^T';b 

Armti 
MSXV:*3'-» 1990^6 ^-^i-it 

MSX-CAF^ -t^ ^ffl#l^^ 




MSX-DOS2)GOL5 



MSX-Cr: 








TOOLS fc'JZ^S?:;o 



!K^S®t)®^^3X*-5 



• MSX-DOS TOOLS 

•MSX-C =i>yw^- 

• MSX-SBUG 

©(su-rntMsx-D0S2(cjt^t 



);& L/ r L ^ S=fc ©<i: -f -5 ^?St ^ =6 CD 
DOS2?i=If&ffl=fc(Z)^Ei)fcg5 

AH\L\;t55o t(Dm-^. mm. 

tf turbo RlU^roAttMSX- 
□OSet£^gl3/c!:or<■5,. ^ 



piOGlAMflOUSE 



#include <stdio. h> 
ernnesO 



V 



! 



printf (":??' i^ 7WjW ? >?•{ i^ ^U-f¥n"); 



iiiain(argv, argc) 

int argv: A n'^y}^yAy\,Z}J}^i\fz1im^\<m.*\ •/ 
char argcG: A a-7y K5'f y(^3i:?:?!KW)--^'>f V:?- ♦/ 



FILE *fp: 
char buf[256]; 
int I; 






if {argv !- 2)i 
ermesO ; 
re turn (1); 



A 7r'f/U^-7> ♦/ 
if((fp=fopen(argc[l]."r'')) == NULL) 

errnesQ; 

return (1); 



} 



1=1; 

*hile(fgets(buf.255,fp) != NULL) 
printfrS;4cl:%s".U+,buf); 

return (9); 




(Dzfu^3h.^mm.t^m\ti\< 

to-Ct,^S= MV;y^te»V7K 
■7x7'=lV7^7h^^ffiLyrC\S 

sa^bI^nsrot.^r(s/J:L^o ■?■© 

d;^o 3ffl^^. MSX-C«6(3: 

call printf 

3t0l3;|ISfi-&0%©(3:ffDffiz5 
f. UyC'n\ztX:\z^f<bt\.iZl\ 

§©e<, MSX-C^eUlciSt 



CUB.RELci:Ui^77"rJL'^^3 

^itti5■tf^+H©t>®■ca/d:Ll 

L\Li*^c!:L\e'i, ■?-atL\;b^7^Llo 
/d:lf /j: to ;^M7gsi^iJ ^^ 7n ^ 
5A4^-C|S5i, S:$:|SfBJSIIffl 

6fc= MSX-C©:m&CRUN. 
RELiLi577"f'JUA^-&n^o 

fc^L/, i;il£/ci:(^lCV-777 
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8086(3: MSX(7)CPU (turbo R(;)CPU 
UA.X'tfz.7S0^^<-i>3>Tyy 

Lf£f)-r>fz(r)ti'ty.^n t. sm^z 

<7)iSo §^l^. Z80c7516f-y hUSCPU 

(Z8000) ti ^^^i:^l^i■ri.„fcfc^ 

ST. 8086(ife^•^^''8080?: 

(t^CPUTti^dTL^o ^nc^^T 
h « - ^ Uii t ^ fg-55-T-Hty^u 

Ut^-otzmtK tz-:>tzV-t':>(7>-^ 



III 


',. ' KepBpr ocesE! 






n^M 




all 


keepcheck 


^r^fl 


» 


«ov 


es.Bi 


1 nHI 




or 


av, HH 


PQ^ 




Jz 


aslvool. 


mm 


" f ' ' 


ror 


il, B/te ptr opt[ 


^^iil 


"• 


Jnc 


col oar check 


BmIB 




flOV 


an.otfset tatiltUficeni 


Hlin 




■ ov 


ili.esi; 


prJiU 




Int 


ZIft 


Hn 




int 


i>i. tcBlh 
21 h 


IBI 


LnlnHchf:*-- 






B ^ 




■ ^usb 


1)5 


BRfl 


.„ 


pUEft 


C3 


■.^^.fl 




IBOV 


31v. US 


H^^H 




nny 


is.-tn 


l^^3 




nuv 


hl.CE 


Hlflllfll 




nov 


es.ts 


H^^H 




• nni' 


5l.BBh 


^^^H 




■ 04 


iti.el 


^^^^H 






ci.4Bh 


H^HI 




CM 




^HIH 


rev 


dOIE" 




I^^H 




pop 


ie 


IHH 




pop 


6s 


H 




'Nor 


Cll.Ctl 



ZtX'Uz^j:. ^\:^f£A.th^. 
t>^j:<t£^tzift\ mh-^X(D{t 

t'-y hCPUT*S8086(i.lBM-PO^ 
PC-9801 ^i^ff!) t r -Si^/ \° V n 

^^^Sb^tX't^^^tz, tzi)\ 

i±mizf£':>x\.^^(r>tmt'tz. t 
(Ditmtii. ''cpu^mmzTi^^-iz 

feO^^Lffi-^fSt. 8086COr 
Klx;^^^>(J20t'-y h^U. 1 

(DLt)^^£l\ ^CT\ .i.fcOOL^ 

>^:^T i> ^ 1 izf£-DXi^i<r>tz 
{Mz'o<r>i-i^:^^-izummr 
St'-y h^^-^T. -^itT-tiZOt:' 
-y hvi:^*^Wia^:^J: 

(:(SCS. DS. SS. ES(7) 

^, mm¥Mm^-Mx- 

Tfiiet'^y h/-'(t^oT 




l^fcCPU 




18086 (WT. 8086) (S^-T >7^;UttA"^l 978^1^^^ U t 
IBfcf'^hCPUt'o NECOSJSCPU VaO-V*. ±ffi=I 

>A'^^jucD8oe86. 80386=fc^«)n(S^ m^rs=fess 

U"CL\SCPU<tL\x.So 



8mtfmt)nxi\^ziyt:=L-5>- 



PC-9801 l^-fW':^i7 J3100SS 




nm^}^^Ltzt^-Dtz. n^-om 

T'4- fbf^fflT^ u vT. ^-4- t'm 

U (i^^Hzi^tz^^il- 5 :: t ;!)^T 
^i>(r)tz, 

ZZX\ 8086illj!^<20t'v hCOT' 
K^X^S^H-5I^T#TLiT 

■f^o ^LT, 8086*^tiifc^ifD 



^^-^X^^'fzlZM^^til^, ttm. 
8 t'-y t-CPUT-64+P/W h =S:ii 
46'^ < T V -> >ig7''P :?"^ A ^# 

mmzm^X'^^m^X'^^, 

>yW7Uif^i'^\^-^fzLfz-^\^^X\ 



T"% 



-,Ltz<Dtl\ 80286^80386 






REP zm0LD\RU.ii. ya-^-:7miii-cmzi3^t^^^<t\s 
L00PN2 ^^(^^^^^Ji^-^i^fcL^i*- cn^fs^o samz, 

LOOP, L00PZ:^d:t'fe^D«l75fe#[Cl^D7^^^ 
5^|_|p AHbyX5'-©^^^75^Uyx5'-lC^igTSS 



128 



pBOGMAMffOUSE 




'jy\^j\ox0mm^mmyyz^m{ff^^o 



Tl^Sr. MSXTV7 h^fF^X'^j.-L^ 



u V 7 1^ / N ^ ;^ A^ntf . ^IS?:!: t' 

T'iS^IW|L^T^■5^:^.^L^T•LJ:^. fc 



i*iC^ttBir 



BIT^I^K mhtlfzKM^m^l 



ispji/ywht.?!-— ^-o "CSS 






m)^^OD^Vidy 



:rm(D$>^^x.^<^^^Tll 



A;^(c:l|IK&bu:?M^;:)^< Ur 






i*S5tnQ3-3478-455B A*S^ 4^iS@ 



=5iOHE!iEgBmms^2-9-ie xmm^ =m\ 



1*iC^tt X^'^x/ 



-lrv>^ft5t. g.^tirB1Vi*-y:^ 



tlL-V>i^iC^tt 



[i 



-14 : OQ) 









:-3505-)415 A*S^ WH^ ^:*^ 






To Sft!B©SSA^;'!:il!aUS-ro 



iSg5fea04e2-B0-1521 AWS^ ^1?. 



^iC^ttT BEVY'S 






10: 00-18: 00 



(1*)iJA'-tJbV:7h 



:fo'^ t^>^-A^^< oT^i&l i ? 



iJA-tJL/-Ctt^ i5=fcU5'5'-A 
tfiljn5(l|iJiDfcL\)A. 7-fx7 
V>. xh— 'J— x^— etc.^ 

■i'roL^L\A^3<«)"Ct\STc fc^ 



tU^-y-AfilJDICtf/uli^-CU 
^-To ffJ3i:10S^(199e^)l=[SlA^ 
oZ:i920^U-X. JB->'J-X, 

GAME^^toU5JfU= 
-r^r. SrUL^:tlC;b'A^^rLl 



l^5fc$:ttsD52-773-7770 ;'^B5n06-327-0e2B A?S^ ;"pr^C:$^) 



lS@5tO09e-771-3ei7 A0@^ *LJJ 
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T.F-BASIC 



iUafSffi?* 






MSX-BASIC«/K9-P*:/:^*1i« 

TP-BASIC 



^0 'j.'J^v T7r.7.[-ay^—(r)i)-^ 
:b'J(i*REMnjffx.4-'.\ i:i^T 

#1I]t;)t(75(i'G0T0<7^Jl'>" 
*0N < ^Iffe > GOTO <^^J\^>, 



G0SUB<'7 •^^l'>, <7 '<;U> 



L\ L^Ofc""G0T0"^^(7)^t(Z 

^\m^^r^z t i3^X'^ ^(Dfz, 





W; X:!^ 




1 
SAMPLE 


1 ■ 


T. F-E 


ASIC 


10 ■*START 




20 AS = INPUT$(1) 




30 IF AI="I" THEN CMD "TYPEl 


,G 


40 IF AS="2- THEN CMD "TYPE? 


.G 


50 IF A$-"3" THEN CMD "TYPES 


.G 


60 CMD "START". G 




70 PRINT "r':CMD "START". G : 


*TYPE1 


80 PRINT ■■2":CMD "START". G : 


*TYPE2 


90 PRINT "3":CMD "START". G : 


*TYPE3 



^ -§-7° p :/7 AH^- fT; (z4m? 
TF-BASIC.OBJ 

BLOAD ■'TF-BASIC.OBJ". R 
X-:^-^~tz. 

tfz.^iZmm^'kh^h 

t-^T, "CALLKANJl"^ 

n^'^h.t)Hn7LXLt 

n, "CALLKANJI*^!! 
'■nLfz^tX'±%±.[i 

■S J; ? c L J: a 




ICMD"<^a;ju:S>" 

ICMD"<^a;;US>",- 

ICMD"<5a;ju:S>", G 

ICMD L 

ICMD LC 

ICMD F[<ffS^>],<3t!?9y> 

fSp tUm^btSUil^(c:5:!?5ytf^07:i^6?'ci:ft^ot^S 
IS, "word not found" i^g^tstiS 

ICMDF-,<5^^5iJ> 

ICMD C<ISr^^fc(i^lfS> 

usRMiadiiRiL;s6^^rs.s^L.fcM^,sfc(a^iB[ffi5^ 

ICMD PON ^ ■ 

Z(D€H^:^mrir^ii. CMD LtCMD HtT^S^SinS!^ 

ICMD POFF 

ICMD W<IS^^fcl^^lS> 

ICMDH 

T .F-BAS\C<D^}Vy ^mmb^t 



y-)pmmfp^£<Dfi 



z (7) =1 -:^•-T■^H#^7>^4■ ? 

DOSc75^fS|5av> K(cM'b-r\ t' 
^'i:BASla07°P:r5AT-fc^^S 






r 



5t 



=107-24 

Too\smmm 
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T-byT'^ 







^^^^vOfyiy^- 



y ^ U -(7)8000H#i-a^^ii8FFFH 
#±t!lST"C7)1000H/\'-r h^rOT-JgSf) 
^yn:?'vA^%^T^S L J: 0, 

yU hgdO^IS^LTLDIR^rH 

7 KU7.C7)|A!§(U 7. t-T'tJSOOOH 
mt)%.DE\^p7,9—t)^7f:ty K 

VU hi^OCLT^^i. DEU 

i:. 1 [I]gc75LDIRT'8001H#±-fe(IO 

^ — ^DEUv:^5'— ^^tJ-trj-f':^ 

±i^-&(Z)T\ 2[alga)LDIRS^T- 
(i 8001 H#±tiic75rt^*^'8002HSt-(il(Z 

(7)LDIR^^T'8001 H#±tilCO[*l^li 
OtC'dT-jTU^cT^T'. 8002H^it!l 

8003H.8004K8005H tt^X 

o/j^#jAsn^ctc'd:us-r. 



Li 



e- KO^l^^)*:^^* 'Jit", t 
>9"'^i^^\.i\.^\'^<r>XTo 

%tz '■m<T):,tX'-rtl\ WUy'J-7 
9-^hht,^\^isb^X">^}7-\. 
Tf^S, *PUSHHL"(12^-r-h) 
^\UWrJtmt. 79v<Prf.^ 
>9—h^7r^r7 Ku;^tzo*<#§ 

tztXit. 79y9^^^>9- 
c7)fii^^90O0HT"HLL' V 7 9 -<7) 
fI^^'l234Hc75ii^. PUSH HL^^ 
nr^t79v9^^^>9-(ni^ 
*^'U-tO;)^U8FFFH{Z?d:U J-Tc 
^LT. t(r>^m'.ZHi^i>79- 

^hiZ79-j97fs^ >9—<r)iUi3^ 
ai:o;|toT8FFEH(Z'j:'J. !rI U 

< ^C7)#ife(I L 1^ V X 5" -(751^^ 

cn^^ijfflfnu; fz'otzU7 

)1^S# U il-tttj; J; (J :^ # ^jtS^BI 




ipEOGiAM[|OUSE 

fflia-SSnSo "POP"3i5^IS3ecSP 
U, SPcD1iII3:y3vfcoJixS3ilZ?j:5o* 
'3ii^=fc. "CALL"fiS^©/^CD:j^KU7. 

fi^spiz^iSinSo 



2/\'-r hT'j;bK-r5i:46^7^- 

Ytn7^-v. 7)d-'^mzf}-' 
fi^mmt^n^^t-fx-^. 

g ;^ h it'^z.(r>'7°u9'^ L.(n'm 
(z'j.'usro pusH^^^^ifT 
s t: ;^ ^ 'y ^ 'it <> :? -(TDfilti y 
^ U '-(7>T<4:^f^!z^-ft-r-5fc5^. 
7 9-y9^^'(>9-(7)imi.^^~^ 
t;/ ^ ij -y p -y ^ (TjftifiSife 
(ZIS^LS-To 

#SjAC|E!l(J1000H/\'-r hJ'^-cT) 
T% ^C7)^^^800H[I]PUSH^^ 

-fD9'^^Mnmlzi^^(r)7 9-y 



-7n 9'^i^nnmz htizmtx 

i^^ZUX'Tc 

T(zffi^^^#LTfc^.^L^L. 
LD IX,0 
ADD IX.SP 

LD SP,iX 

■9—(Dm^\)(,i^i>7 9—iZ-^^L 
Xht^tl't-itA., 

it. 7 9v9^-'<>9~\,tmzh 

%n^zt[tt£^^(nx-to 

•■Xmi.79-v9yf^'(>9-^i^ 
'^fz^9--y9(nvt^. 'r>^ 




(3000h"8fffli] 



hi, . 

de,. 

be, 1000h-l 

(hl).0 



fill tiTETnary 



hl=Jf-1-7r PJ+0 
de=IJ-^T^' l.Z+1 

{hi)=in'nj! ; 1^*; 

8000h-8fffh S' 7 






savesp: ds 
Id 



td 

Id 

Id 

push 

dec 

Id 

or 



h'Sfffti) <- 



(aavesp) . sp 

hi, 3 

be, 080 0h 

sp, 9000h 

hi 

be 

a. b 

c 

nz, loop 

sp. (savesp) 



[fill memory ] 

hl=i>*J'-* (00h) 

bc^JjvJ- [')X* n-<[-j5 ; /iv?-y , i000h/2) 

sp^7»-t7h' H 

2nWt- *;<* 

i)0>J- 3 -1 :i* 

be *■ * r ■)() 3 i'l'-'S 

be *■ i' t(l-7 Jl-7* 

liJsnMyJ- 3 (I- : irj 
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B^3C-M 







m^mm 









£7)^i.^:^^v:^?--rntfya^ ^^T•fcl^■rtM^JL^J:L^^; 



■r-53l^^iffl(75^^(i. MSX2+ 
MSX DOS2:'5- h U •y:^*\ $>S 

CALL KANJI 
i:A:^LT'J:S'->+-^#LX 

CALLKANJIi:L^T^^(J, m^=E 
-K(ZASfciftc73^^T\ >^?:?r 

^^cCt'^S^r^^-K?:. ANK 
- K^^ibANK^- KlCM5:^^(i 



CALL ANKiri^T^^^is^o::;: 



? XiH?;^- K(zA-5 ; t *'T- 

■^^^xi.t%ma^z:t\zi5'jktm.n 

\.^<r>X'^-D.7}\^^^ <m.A,x-h 

2 fcTRLl =t^-^:^K-;i.r^— ^ 

3 v-a.j','Kr»i^T^^::^>i 

Zc7)J: 1= LTA:^l L/tiH^^C 

j; (~yD ^5 A<75PRINTS:4- i:' 



S:!?=(iANKS:^ 2 :S:^^^^# ^ 







?:*^-;ilRlLTi,N^3t^lJT-[i,iO 
CALL KLEN[i;||:^3t?5iJ(7):i: 



'^mmrm^^z.nt^x-^^^ t 

^mt^^tiizth-fi^ix^, 
8;^^tA?n-5„ -n^LEN&^iSr 




X-\^i:L'iL\.tt£.f^ts.t-mL^\ - 

C7)fcS6CALL KMIDi:L^^^^A^ 

(z, h^(nX'^Whm'')'^'3-tz 

■x^w^'^^t^-x^^^^. X 

■^\\^z^'')-^^ht(nX^3\k IS 



i5iRc?>%^. :s:?!^S[A${c*«tt" 

;!j^tA?nsci:[z4-§„ -n^ 

A$=MIO$ ('BASICWtt:^!', 6, 2) 

A$=''C7)^ 
i:''j:^TL J T(75T-;EgLJ:Oc 

ti-J^'^=^~ Kffl(75LEFT$|ig|S 

?d:i.^(;5T\ CALLKMIE>^^?rfSo 
X^t<iXW^Ui<X\tUhtS.^\ 




.UzrxTfX-^Wh^-^^nr^ 

-yi-tfztH # (-<St INSTR^jgcfc 
Ztti^^K\ CALLKINSTR^^(i 



3t?^ij 1 \zi(m.r^x-^\i x^ 



591J 1 <7)fj:f3-X'X^\\ 2tmc^ 
^ij^isrX^Si3^h$>^t>^mXX$ 

Kmziiom-tx^ti^o im:£^ 

^1^. ^S[A(z7*^-tASn^. 
Ztl.^^iS<;5INSTR3t'r- 
A=!NSTR('BASfC{7)^^', *#') 

A=8 

^®&^(ZCALL KINSTR^MfcOo 
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piOGBAMIfOUSE 



tz tzLV-h *^^j:^ 5^7 7 -r v ^ 
S:^fy^x^\lf^iz$i^tzm^. IE 



^LXl^^fzUbfZo 
■^■fj:fyizWiXVitA$iz 

A$=*BAS I C(75«+i* 




CALL KACNV^^Ii. -^mML 
fcCALL AKCNV^^CO^J; T ^i£ 

(Dm^^r^^^tz. r>ti}iWM 

t=ho fztzL. CALL AKCNVCT):^ 

tttz. tfz^-D^hmmUzi: 



V-htmts ^n<Di3 9i3i-izm 

-0= ^mr'$ts^^:sc^^'^in 



CALLKACNV(A$, ^M^tll 



') 




^^^hmwo(DtBit^nx^ 

A$=*BASIC* 



ti^SC^W^lz-^^nXl'^tlEL 

=E~ \-'Xii^n<7^V-ht^^£UmX. 
^^^.'■intzo 




'^\\^<7}^^—:Z^fy^nx'$>^ 
t)-^MX'$>^i3'^m'^^-^^fzo 

n(r>tBlz[iOizfj:^, gtzm^ 
^^^m^x-i^-^r^. 



A-O 
IZt^^, $.tz 
CALL KTYPECA, 'BASICcntttt', 6) 

A=1 

^i^xh^n'TiV-hti^tnti^o z 
i:iiXBf£i\ 




(r< (i4->-'-A^S^o 

^ < mt^tyDmtu^'^X'L J: T A\ 

□ wm~^^^mztt 

c7>igffl/zo 'J :^ h 1 (T^yn :?*v A 

^^*>iA^fc'S:^«+ ■V' V :? 5- - 
XC-T-:b-v;u+-*PU:S'-> 

-juzi- KtJCHR$MISi: PRINT 

x^m^xmrnizw^r^ztx. 




SCREEN 1:C0L0R 15, !. 1 
:CLS 

110 KEY OFF: WIDTH 32 
120 AS=CHRJ(31)+STRINGS{5 
. 29) 

130 6$=" "tA$+" 000 " 
+AS + " 0X0 ''■'■Ai + " 000 °+AJ 
+ " 

140 X=14;Y=10 
150 LOCATE X, Y: PRINT Bt: 
160 S=STICKf0) 
170 X=X-(S=3) + (S=7j 
180 Y-Y-(S=5) + (S^i) 
190 X=X- (X=0) + (X^27) 
200 Y=y- {Y=0) + (Y=20) 
210 GOTO 150 



umx'^^$tix\^^hB$ti^zi 
> 1^ P-jL-zi- K^a■^/■-'+-^^ 



^3 


ISUZ^PD-JUD- 


-P 


|gii-^ 


'-^^^^^'^^''^^^^''^^^^^'^■^7^^ 


7 


xid-t}-^m^t{BEEPX<tmu)) 




11 


ti-V)V^t^-I:^7rsVi^By te±) [CM^ 




12 


SS^^ U 7- U. :^- v;ty^7n-A/-Ki/5/ a 


xc^-r 


13 


;^-yJU=SS^i::M-r 




E8 


A-VJU^^^^UfS 




|;89 


;b-VJU^S^^i!lfS 




30 


;*3-VJl/=g±-^^ifi-r§ 




31 


t}-'J}U^T^^mt^ 





ipjiza^j^u^^ 



mm(Dzi:tit''e>. zo)zi—t— 
vitBASicizm^ ^mm^m 

sum-So liPp^fi5^S:S'-«^ 



^ T107-24 

limS!^E^IfLU6--11-1 
— 7.U-X7ffi«LiJfc:Jb 

56 BAStCCDW^m 
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of tware West 






3 ^ KMit f<> 



UFE MASTER 



t^io:^R 






# o ^ < ^f^;^^iaaj L i 9 . 

""LIFE MASTERj(i^Y7-r'- 







MSX2 VRAM64K ^Vl^X 

*^^C75:^ -:? > 5- -fcMcLcm :^ t7 
>:S'-U-tr-y h. [±l(J:^t7>$'- 

[sEi|(iiiiM(-/\°:?->^K< T' 

GAME" t»*^nTL^-5~S7tS 



fl 


1 


1 


1 


1 


1 


1 


1 


1 


■■■■■■■■ 




; 


: 


: 


E 


; 


z 


: 




= 


I 


~ 


?w-^HKiiJ 


i 


J 


- 


- 


- 


- 


-1 


- 


- 


■» 


- 


- 




+■■■» Kn^H' ' - 


D 




; 


: 


: 


;: 


: 


z 


: 


: 












-- 


L 






■14=- 






^ 


" 


- 


~ 


>- 


- 


L 


- 


p 




BE ■ 


-- 


'- 


„ 


- 


-- 


- 


- 


: 


: 


Z 


• 


■ 




: 






p 


J 


wj 


w. 


— 1 


— 


- 


■TT^ 


5? 


" 


m--r--,r= 


-. 




: 


: 


_ 


: 


- 


; 


: 


t 


: 




1' 






J- 


--n- 


J- 


- 


\Mm 




^ 












; 


^ 


; 




\m- 




_ 














-■ ;- 


■ — 


i 


- 


■ 


1 


1 


1 


1 







t-^r t W^tWn -5 J; 9 [3 'j: o T 




U-V3 >^- KT-fcift^^lSlt 
Xj(z4Bi?nTU§c75T\^^ib 







(i¥/wpp7r) 



y7i-5i>'D:/?:ii-iiE 



:t^)-:^-tJi'^\=i^'^A^BMLX 

n^ZtiZ^S-oX^-^tT. 

iZTAKEmti'h^^^tl^. fMSX 
v:^'i; >7°P ^'^ A-9-- t'X ,{C 



i\VM$n^ZtlZf£r>Xl^ito 



(|Kr-A7°n^'^A^n 
(iTAKERUT'iS^T-^ ^ fec^^CK 



ff>^^s ifc(i— 35^3 1::- Lfc 

fzLtr. 

f£^. MuSlCA ('90:^1 O^-^-X-SS 
'^)^i^m{.Xhi)^t\^^tftA.f)\ 

t<Tm. mm\^xi^^zt^m%t 
•ft^:^;* js^fFp°R!-(i, Jii 

©yp^vA^ISIiLfcp'T-VT' 
©MSX. MSX2. MSX2+. turbo R 



c7>(^±Bff.ft^f=£J'JZ^-r7 U :h'i'^ 

■^t.BjieLx<fc'$i\ 



^ T107-24 

7t v7K':3x:pd>x:^s^ 
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piOGMAMIfOUSE 




YOU<^IxJ\0^ 










^#m/KENJI 

>^Ki* 1 <7) 8 ^lo if Hi^ii 
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fiOGMAMHOUSE 



WW 



e&o 






mi'mmi.] 3b^-v\zmm 



IB DATA 0,750,0.2,5«0,5««.75M,4,750,a,25 
M, 1,750, 500. 750, 4, 500. 250, 750, Z, 750, 0,5B 
K, 2,0,0.750, 1,0,250,250,0 

20 DATA '^m^ -t h ,mm^ ^ ±,nm^i^m. 
. T - t? ^ ^ I ,mm<^^i0.^<wt^m n .m<?)-T 
~ f .mm.mm.M i^ l^- v^ 

30 _MUSIC:_BGH(1) :_V0ICE((i51) 
40 SCREEN 1:C0L0R 1 5 , 1 , 1 : KE VO FF : _K A N J 1 1 : 
WlDrH40: CLS:DEF1NTA-V:DEFDBLZ 
50 DIM A(30,8) ,A$(30) ,F(8,3) ,Z(11,3.U :G 
OTU 140 

b0 NE=200:TK=0:K=100:GO=3:YE=3:HO=1:WE=1 
:ZZ = 

70 FORT=0TO10:GOSUB80:A$(T)=C$:NEXTT:GOT 
120 

80 R=RND{1)*3+3:C$='"':F0RE=1T0R:C=RND(1) 
♦45+177: O=RND(1)»3:IFO=1THEN100 
90 IF C)=182ANDC<sl96 OR C) = 202ANDC (=206 
THEN A = FIX(RND(l)-4) :IFA=2THEND$ = "' ":E = 
E*1:G0T0 110 

100 IF C)=202ANDC{=206 THBNA ^FIX (RND ( 1) * 
3) :IFA = 2THEND$="- ":E = E+1 

110 C$=C$+CHR$(C)+D$:D$="" :NEXT E:FORE=0 
TO3:A(T,E)=RND(1)«890+100:NEXTE:FORE=4TO 
8:A(T,E)=0:NEXTE:A{T,6)=RND{1)«100+450:R 
ETURN 

120 FORT=1TO8:FORE=0TO3:READA:F(T,E)=A:N 
EXTE,T 

130 FORT = 0TO11 :FORE=0TO3:FORA = 0TO1:2(T.E 
, A)=0:NEXTA,E,T:GOTO 190 
140 INPUT " ^ m ^ A tl X < fd ^ ^^ " ; n : IH?U 
■r'mB<^ ^ti ^ AilX < tZ ^ ^^■';B$:_CLS:PR 
INTA$;"ti h I m^l^Z L*>^5tSilT^^^ 

i^ f'J" : B$ ; " t: I!) 46 T VI S % g T J) S . " : GOS 
UB170:PRINr" J) S H *S ^ :R t^ B? (i' ^ ;t . " : G 
OSUB170 

150 PRINT"S*i^ ' ";A$;"S -^ ffi iif*J";B$ 
;" ^ f^ I C: b tC =5: -? fz , " :GOSUB 170: PRINT" 

0:PRINT"ft^ S- «l ^ -r tC ^C. ":GOSUB170 
160 PRINT "t-f, 10077HS)^. ^tT, 

mmtx\>^^mmmi}^-\-A\'^tti^. ^(^^v^ 
^^ ^m(r>^mm^ntx m -^ X < ti, ":gosub 

170:PR1NT"^ ^ 3 :^ t^ 1 ^ ii^ h tt . ":G0SUB1 

70 : PRINT" -e iX t ^ h IS A ^i -f . " : GOSUB 1 70 

:GOTO 60 

170 GOSUB1220 

180 R=KND(1):IFSTRIG(0)THENRETURNELSE180 

190 _CLS:RES,TORE20:FORT = 0TO1:FORE = 0TO4:R 

EAD C$: A=E+T«5 :L0CATET»15,E:C0L0R 9:PRIN 

TA + !;:COLOR 1 1 : PR I N TC$ : N EXTE , T 



20W COLOR 3:PRINTUSING"^ ###l#77 ffi ^ « 
##F4 BU:i'Jy\' #";K,NE,GO:COLOR 7:L0CATE 
28,0:PRINT"^ ^";YE;"^":LOCATE32.1 :PRIN 
TMO;"^ ":LOCATE3 0,2:PRINT"I^"; WE;" jl @ ": 
COLOR 9:L0CATB28.3:PRINTUSINQ"a fij & 

S " ; B $ 
210 L0CATE29,4:PRINTZZ; "SB" 
220 GOSUB1240:COLOR 1 5 : LOCATE0 . 6 : PRINTUS 
ING"« &mM *";A$:L0CATE11,6:INPUT"M Sr 
t t -f 7:?'?(0-13)";CO$:IFCO$="SAVE"ORCO$ = " 
save"THEN1120 ELSE I FCO$ = " load "ORCO$ = "LO 
AD"THEN1170ELSECQ=VAL(CO$) 
230 ON CO GOTO 3 20,420,470,240,520,550,7 
40,600,680,780 
240 '4 
250 FORE = 0TO2:_CLS:LOCATE9,0:PRINT"S =^' 

S IS i^ * -f^ ^ S":FORT = 0TO9:A = T + E 
•10:C$="":IFA(A,8)=0THENC$="Ok"ELSEIFA(A 
,8))0THEN C$ = "4»":IFA(A,8) <5THENC$ = " JJ "E 
LSEELSEIFACA.8) <0THBNC$ = " ^ " 
260 LOCATE0,T+1 :PRINTA;A$(A) iLOCATE 9,T+ 
1:PRINTUSING"JI# #« ## ## l# ## ## ##7] & 
&";A(A.0)/10,A(A,1)/10,A(A,2)/10,A(A,3)/ 
10.A(A,4),A(A.5)/10.A(A,6)/10,A(A.7),C$: 
NEXTT 

270 LOCATE , 1 1 : PRINT" 1 ^' : 2 ;^ : 3 S : 4 T : 5 
g :6* :73S:8X :0t/":GOSUB1220 
280 IFINKEY$="b"0RINREY$="B"THENE=2:NBXT 
E:GOTQ 300 

290 IFSTRIG(0)THEN NEXTE ELSE 280 
300 CLS;GOTO 190 
310 ' 1 

320 GOSUB790 
330 PRINT A'$(C):L0CATE9,8:PRINTUSING"iit«# 

=5ffl# X#« #g##";A(C,0)/10,A(C,l)/10.A(C 
.2)/10,A(C,3)/10:IFA{C,8))0THBNPRINTA$(C 
) ; " I t> i; O T W — ff T •t":GOTO 370 ELSBIFA 
(C,8) <0THENPRINTA$(C);" ^T^i'Tifiotf^U 
t ^ A":G0T0 370 

340 LOCATE 0, 9 : PRINT" 1 df : 2 X : 3 ffi : 4 T : 5 1 
■.kit- :7JS:8X:0ti'" , 

3 50 GOSUB1240:INPUT" i^ -^ >- /P S- ai A T < y^ 
§ Vi";B:IFC)30ORB=0ORB)8THEN320 ELSE A(C 
,4)=B:A{C.8)=RND{l)*40+30 
360 PRINTA$(C);" 1 ffi S l^ » g ^ *> &. * "t " : 
GOTO 390 
370 GOSUB1220 

380 IFSTR1G{0)THEN CLS:G0TO 190ELSE380 
390 GOSUB1220 

400 iFSTRIG(0)THEN.CLS:GOTO 800BLSE400 
410 ' 2 

420 GOSUB790 
430 PRINTA$(C) : L0CATE9 , 8 : PRINTUSING" -Ji$ 

^$tl ^## i(Ef##";A(C,4),A(C,5)/10,A(C.6) 
/10,A(C, 7): LOCATE 0,9:GOSUB1230:XNPUT"* 
^ T 1" ?5^?(Y/N)";C$:IFC$ = "Y"0RC$="y"THEN4 
40ELSE CLS:GOTO 190 

440 IFA(C.8)< = 0THENPRINTA$(C) ;" I" ^t ft U 
T V-> i •y:^":GOTO 370 

450 IFA(C,8) <=5THENR=A(C,8)BLSER=FIX(RND 
(l)'3+2) 

460 PRINTA$(C);" I T ti ^ " ; R ; " E f » *) 
(^ -t t ■t":A(C,8)=R+l:G0T0 390 
470 '3 
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480 IF TK)0THENPRINT"t£ L < T tti * ^ -t^A. 


760 PRINT" M*lf4H- ";C;"7j R":PRINT"ig 


":GOTO 370 


g ";A:":^ R":PRINT"-- filf ";NE; 


490 GOSUB790 


"H i: L T ":Z = FIX((C + A)-10000/NE/4) :PRIN 


500 PRINTA${C) :L0CATE9.8:PRINTUSING" i>## 


T " S 1^ " ; z ; " ffi I,:i ± ^ f^ ^ tt n tS' =5: ^ =5: v^ " : 


!*#« f^##";A(C,4).A(C.5)/10,A(C,6)/10:P 


GOTO 1030 


RINT"130:^ R A* *^ ^ -T": GOSUB 1230: INPUT" 


770 ' 10 


X h U I'l T'-f **?(Y/N)";C$:IFC$ = "Y"ORC$ = "y 


780 GOSUB1230:INPUT"j:.6 LV^Tt-*>?(Y/N) 


"THEN510ELSE_CLS:GOTO 190 


";C$:IFC$="Y"ORC$="y"THENGO=0: CLS:GOrO 


510 K=K-130:rK=TK+(A(C.5)+A(C,6))/i20:PR 


800ELSE190 


INrA$(C);" [^StlSJr^Ti^Oi i-":GOTO 3 


790 GOSUB1240:LOCATE , 7 : INPU T " It T i" A^ " 


90 


;C:IF C) 290RA$(C)=""THEN RETURN190 ELSER 


520 '5 


ETURN 


5 30 GOSUB12 20:LOCATE0,7:INPUT" VI < f> tC L 


800 G0=G0-1 :IFGO)0THEN190 


t. -r *»";NE:IFNE<0THEN520 


810 ZP=0:D=0:S=0:FOR T=0TO 29 : IF AS ( T ) = " " T 


540 PRI NINE; " R t;: L i -r": GOTO 3 90 


HENNEXTT:GOTO 930 


550 ' 6 


8 20 A(T,8)=A(T,8)-SGN(A(T,8)):IFA(T,8)=1 


560 GOSUB790 


THEN PRINTT;A$(T);" 1 ^Jft^l^i^O % U^c" 


570 R=RND(1)*3:PRINTA$CC):L0CATE9,8:PRIN 


:A(T,8)=RND(l)»-6-3:A(T,4)=0:A(T,7)=0 


TUSING"i^#l ?*## f^##";A{C.4) .A{C,5)/10. 


830 IFA(T.4)=0THEN NEXTT:GOTO 930 


A(C,6)/10:IFA(C,8))30ORYO)0ORR=1THENPRIN 


840A=A(T.0)-F(A(T,4),0):A=A/10:A(T.0)=A 


TA$(C) ;'■ 1 tt L V^ i^ T ai * S -yrA ":GOTO 3 90 


(T.0)+(F(A(T,4) ,0)/250j*3:IFA)30THENA=30 


580 PRINT" 25 75 H *>*^ i t" " : GOSUB 1 230 : IN 


850 B=A(T,1)-F(A(T,4).1):B=B/10:A(T,1)=A 


PUT" J: ^ \^\.\X -r *^?(V/N)";C$:IFC$ = "Y"ORC 


(T,1)+(F(A(T,4).1)/250)*3:IFB)30THENB=30 


$="y"THEN590ELSE CLS:GOTO 190 


860C=A(T,2)-F(ACT,4),2):C=C/10:A(T,2)=A 


590 K=K-25:YO = A(C,6)/70:PRINTA$(C) ; " f O 


(T,2)+(F(A(T,4) ,2)/250)«3:IFC)30THENC=30 


K ! Jl§g i -r !":GOTO 390 


8 70A(T,5)=(A+B+C+A(T,3)/10)/.2:A{T,6)=A 


600 ' 8 


(T,6)+(A(T,5J-600)/20:A(T,7)=A(T,5)/33:I 


610 C=100:FORT=0TO29:IFA$CT)='"'THENC=T:T 


FA(T,6))990THENACT,6)=990ELSEIFA(T,6) <0T 


= 30 


HENA (T,6)=0 


6 20 NEXTT:IFC=100THENPRINT" C tl lit _h S Jt 


880 D=D+1:S=S+A(T,5)/10:ZP=ZP+F(A(T,4),3 


t. -t A":GOTO 370 


)/2 


630 PRINT"5A^' L i -r ":FORT = 0TO50:NEXTT: 


890 IFA{T.0))990THENA(T.0)=990 


R = RND(1)«4:IFR = 1THENPRINT"M'0 A^ i -lirA 


900 IFA(T.1))990THENA(T,1)=990 


T' U fc. ":GOT0 390 


910 IFA(T.2))990THENA(T,2)=990 


64 T=C:GOSUB80:A$(T)=C$:C=T 


920 NBXTT 


650 L0CATE12:PRINT"ifi ^ '^ ^ V 'A '^ 


9 30 R=RND(1)*7:IFR=2ORR=3THENGOSUB1250 


f4":PRINTUSING"## & S## #1 ## #« * 


940 IFNE) 200THENTK=-20 


# ## ## ir';C,A$(C),A(C,0)/10,A(C,l)/10, 


950 MA=S/(NE*.14)+TR+YO+ZP-ABS(D-NE/10): 


ACC,2)/10.A(C,3)/10.A(C,4).A(C,5)/10,A(C 


IFMA <0THENMA = 


,6)/10.A(C,7) 


960 ZU = FIX((HA + RND(1)»MA/10)»150) :UR = ZU• 


660 PRINT" j: l/i A ifSS *'!.':>*> i L ^c":GOSU 


NE/10000:YO=0:TK=TK-SGN(TK) :ZZ=ZZ+ZU:ZP= 


Bl 230: INPUT" j: h L Vi T t" A^? (Y/N) " ; C$ : IFC 


0:D=D*5 


$="Y"ORC$="y"THEN670ELSEA$(C)="":FORT=0T 


970 PRINT"Sg|g £0 A^ ";MA:PRINT"^ilfi^ ^ 


08 : A(C,T)=0:NEXTT: CLS:GOTO 800 


";ZU:" W":PRINT"^ *) ± tf ";UR; "7j R ":PRI 


670 PRINTA$(C);" i ^ h \. < HW^^ \. t.^ \" 


'NT"g «";D;"73 R":K = K + UR-D:Z(MO-1,W-E-1,0 


:GOTO 390 


)=ZU:Z(H0-1 ,WE-1, 1)=UR 


680 '9 


980,GO=3:WE=WB+1:IFWE=5THENWE=1:MO=MO+1: 


690 GOSUB790 


IFMO=13THENMO=1:YE=YE+1:IFVE=5THEN1310 


700 IF ACC,4))0THEN PRINTA$(C);" '" j* ft 4^ 


990 IF WE=1THEN1010 


■fr":GOTO 190 


1000 GOTO 370 


710 L0CATE9:PRINT"i& ^' IS *^ i^ ift ^ 


1010 Q=0:A=0:FORT=0TO29:A=A+A(T,7):NEXTT 


f4":PRINTUSING"& S#l ## U ## l# # 


:IFK<0THENQ=K*-.06 


# ## ##";A$(C).A(C.0)/10.ACC,1)/10,A(C.2 


1020 PRINT"MfSf4";A; "77 n ":PRINT"ft # £?■; 


)/10,A(C,3)/10,A(C,4),A(C,5)/10,A(C,6)/l 


^J ^";Q;"77 R":K = K-A-Q:GOTO 1000 


0.A(C,7) 


1030 GOSUa 1220 


7 20 GOSUB1230: INPUT" ^ ^ tc: ^ i6 ^ -t^ ^ -f ** 


1040 IFSTRIG(0)=0THEN1040 


?(Y/N)";C$:IFC$s"Y"ORC$="y"THEN730ELSE19 


1050 SCREEN 5:CLS:FORT=0TO240STEP5:LINB( 





T,0)-(T,200).4:LINE(0,0)-(240,200).15,B: 


730 PRINTA$(C) ;" 1 '^ ^ T- ?) *^ fc 9 r ^' V^ 


LINE{0, 100)-(240,100) , 14:NEXTT:FORT=0TO2 


i L )'i":A$(C)="":FORT = 0TO8:A(C,T)=0:NEXT 


40STEP20: LINE (T,0)- (1,200) , 1 5 : NEXTT : LOG A 


T:GOTO 390 


TE0,0:COLOR 7:PRINT"277 #":COLOR 9:PRINT 


740 ' 7 


"40077 R":COLOR 15 


750 C=0:A=0:FORT=0TO30:C=C+A(T.7):A=A+SG 


1060 C-0:D=2B0:W=200:FORT=0TOMO-1:FORE=0 


N(A(T,4)) :NEXTT:A=A-20 


T03 
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piOGiAMIIOUSE 



=Z00-Z(T,E,0)/100:B=200-Z(T,E,l)/2 
INE(C.D)-(T»20+E»5,A),7:LINE(C,W)- 
E»5,B) ,9:C=T*20+E«5:D=A:W=B 
EXTE,T:GOSUB1220 

FSTRIG(0)THENSCREEN 1:WIDTH40: CLS 
190 BLSE1110 



1070 IFT = M0-1AND E = 1ilE- 1 THENT = MO : E = 4 : GOTO 

1100 
1080 A 
1090 L 
{T-20+ 
1100 N 
U10 I 
:GOTO 

1120 ' 

1130 S 

""THEN 

1140 

1150 F 

:PRINT 

0TO3:P 

RINTSl 

:PRINT 

1160 C 

1170 ' 

1180 S 

""THEN 

1190 

1200 F 

:INPUT 

0TO3:I 

NPUr#l 

:INPUT 

1210 C 

1220 

1230 

1240 

1250 

mm^ 

CO X' , 

1260 

tl ! 

1270 



"":INPUT"y r ^ /^-^ (S) ";S$:IFS$ = 



N S$ FOR OUTPUT AS#1 

T = 0TO29:PRINT # 1 , A$ (T) : FORE = 0TO8 

,A(T,B) :NEXTE,T:FORT=0TO11 :FORE= 

NT#1,2(T,E,0) .Z(T,E,1) :NEXTE.T:P 

E.TK,K,YO,GO,yE,MO,UE:PRINT#l,A$ 

,B$:PRINT#1,ZZ 

SE #1 :GOTO 190 

ad 

"":INPUT" 7 r ■< /t-^ CL)";S$:IFS$ = 



% 



IF 



1280 II 
$ ; " S , 
fc t^ =5: 

TK=TK+ 
1290 I 

:lfc I "; 

^•^ *> ? 
it -o T 

1300 C 
1310 _ 
B1340: 
1320 I 
1330 P 
. ":GOS 
/^ 2 ¥ 
RINTAS 
fz , " : 
1380 
1340 I 
1350 _ 
1360 P 
CR32D4 
32D4CD 
1370 P 



N S$ FOR 
T=0TO29: 
,A{T,E) : 
UT#1,Z(T 
E. TK,K,Y 
,B$:INPU 
SE #1:G0 
Y#2."V15 
Y#2,"V15 
Y#2."V15 
ND(1)*5: 

5- ft tt T 

R=ITHENC 

(T) ^ K y 

=YO-10 
=2THENC0 
B$;"tC 
A ^ *^ -h 
R=3THENC 

^ mm 



INP 
INPU 
NEXT 
.E,0 
O.GO 
T#l, 
TO 1 
B32R 
L32G 
L8A# 
IFR = 

mi^z 

< tl 
OLOR 



UT AS#1 

T II ,A$(T) :FORE = 

E,T:FORT=0TO11 :F 

) .ZCT.E.l) :NEXTE 

, YE,HO.WE:INPUTJf 

ZZ 

90 

32G8":RETURN 

AB16":RETURN 

":RETURN 

0THENCOLOR 9;PRI 

•t ::: ^'^ ^ M ^ -^^ A 

\ '':TK = TK-10 
9:PRINT"»m:^ 

f r v^ . ^ ^ ft tt 



0TO8 
ORB = 
,T:I 
l.A$ 



NT" 
o fz 

1 m 

X < 



LOR 7:PRINT"SII M: I ";A$ 

:i<^^^yh^^^tix<ix 

^^ t b ^ , ":YO = YO + 10 
OLOR 7:PRINT"tt^* I ";A 



R = 4A 



OR 1 
S:PR 
INTA 
K = )0 
NTA$ 
1340 
(Oft 

SUBl 



K<0THENCOLOR 7:PRINT"*|.SI 

K + 300 

RETURN 

T"««) m i^ 2 ^ *s-f ?■ 3t ":GOSU 

"itmMMCnUfz^tifz." 

ND ZZ)=1400000!THEN1350 

It^n- ^ i^tz L T v^ ^ *- o y^ 

RINT"»m;R I fc a JC ti t 
^mifX < tl. ":GOSUB1340:P 
";B$;"& oii^X 3 -ttT U i o 
0;PRINT" END" :GOTO 



F STRIG(0)THBNRETURNELSE1340 

VOIGE(ll4,@5,e0) 

LAY #2, "T100V15S4o6L16e4edER32DR32 

CD2","T100V15S4O6L16E4EDER32DR3 2CR 

2" 

RINT-Sm^R I J; < ^ -5 /i ! X. ^ ^-^ 




! S iiSm^S tOSB A^ *) S ! ":GOSUB1340: 
PRINTAS; " S (?) fc *^ tf t i> *i tt A^ SE A T # fz 
(7) tz I ":PRINTA$;"^ it iKD t t ft^^S" 
■^ o T VI T < tL ! ":GOSUB 1340: PRINT" C o L 
X" ;n;" cr>m U t^ A^ *^ 46 a r> tl . ": PRINT" 

END" 
1380 GOTO 1380 



WALLPRESSURE 



10 CLEAR100. &HCFFF:SCREEN0:WIDTH40rAD=&HD000 
15 READA$:iFAj^-END"THENGOTO20ELSEiPOKEAD, VAL ("SH'^AI) :AD 
=AD+1 :G0T015 

20 DEFUSfi=&HD003:A=USR(01 : 1 FA=-1 THENG0T025ELSEPRrNTA'>' a') 
1 7fS' < r 7ij77":END 
25 DEFUSR^&HD|300;A^USR(0) ; DEFUSR=&H9000 : A=USR (0} 
30 DATA C3. 68. D0. 21, 00, 10, 11, 00, 80, lA. 13, FE. 53, 20, FA. lA 
35 DATA 1 3, FE. 54. 20, F4, 1 A. 13. FE, 54, 20, EE, 1 A, 13, B7. 20, FB 
40 DATA lA. 47. 13. lA, 13, B0, 28. 32, lA. 32, 8F, D0. 13, I A, 32, 90 
45 DATA D0. 13. 13. 13, 13, AF, 32. 8E, D0, 06, 1 8, CD. 77, D0. 4F, 3A 
50 DATA 8E, D0. 81. 32, 8E, D0, 79, CO, 4D, 00, 23, 10, EE, 13. CD, 77 
55 DATA 00, 4F. 3A. 8E, D0, B9, 20. 09, 18, CI, 21, FF. FF, 22, F8, F7 
60 DATA C9. 2A. 8F, D0, 22, F8, F7, 09, 21, 00, 10, 11. 00, 90. 01, 00 
65 DATA 20. CD, 59, 00, 03. 00. 90, OD, 84. D0, 87. 87, 87, 87. 4F, OD 
70 DATA 84, D0, B1.C9, lA, 13. D6, 30, FE, 0A, 08,06, 07, C9, D5, 5F 
75 DATA END 
STT 

3A2D00FE0338053E80CD80013100D03E0F21000032E9F322. 50 
EAF33AE0F3F60232E0F33E04CD5F00CD6592CD9492ODBF96. 34 
CDDF91OD2A98CO4100CDB29B2 1001 801 00033EO0CO6B0 121. 89 
A290CD359A2A9F9C0I 1 61 00014981 6000 1302C3E04CD5798, 47 
1 40EO0OD579BCD4400OD2E9B28FB2A56A0232256A0OD2E98, 5C 
20F4OD4100COB29B2)00180100033EC0CD6B01ODE59121EA, FE 
90CO359AOO4400AF32A19C3C329E9CC3F790090657414C4C. 80 
202050524553535552450 1070A3C20454E45524759204352, A5 
4 1 53482032203E0 1 09 1 0544F502054494D452030303A3030, 02 
01 091 5505553482053504 )4345204B4559000B1754494D45. 45 
2030303A303000AF32829CCD7O96CO0996CD9I96OD0697CD, 8F 
D495CO9F96CD1593OD2393CD5A96CD5693CD0893OD2297CD. 91 
1 995C03C95CD7 1 93OD9993CDEB93CD3894CD9F94ODD097CD, FB 
0A983A859OFEB0D2BA912A8B9C1 103001 9228B9021 839C34, A3 
3A829CFE0238F9C3F790AF329E9CAF32829O3E1 0ODBC9A0E, 60 
0747CD4700AFCDE29B3A829CFE9638EA0E070600CD4700CD, 65 
41002100180100033EC0CD6B01ODB29B21BF91CD359A2A9C, A2 
9C0 1 1 70CCD1 498CD4400CD2E9B28FBOD2E9B20FB2A9C9OED. 03 
5B9F9CCD489BDA3690229F9OC336900B084741 4O4520204F, 88 
56455201 080C594F55522054494D45202030303A30300021. FB 
0000229F9CAF32839C32949C32969C32999C329A9C329B9C. 5B 
329C9C329D9032869C32879C32889C32899C328A9C328B9C. DC 
328C9C3E0132989C21780022849C21A49C1 1A59C01 180036. DC 
FFEDB021BD9C1 1 BE9C01480036FFEDB03EFE32BC9C32059O, 36 
21069D06283E20ODBC9A77233E17CDBC9A772310F021A49O, 80 
3E0O360023772336032332959CC91 1 00060603050521 BFIC. 78 
010002CD5C00O1210008'l9EBCl 1 0EC21 00261 60301 00023E, 88 
F0CD6B01010008091520F1O921569S1 100000602CO1 39A21 . ED 
5DA4115EA4013F003600EO803E08325DA4326FA43281A432, 6E 
93A43E803265A43277A43289A4329BA4215DA41 1 E0050604. 6F 
CDl 39A21 76981 1 00380620C5E5D501 2000OD5O00E1 01 2000, E3 
09EBE101300009C1 10E92 196981 1 58A00620C50 1 1000EDB0, BA 
01200009C1 10F3C921569D1 1 001 801 E002OD5C00C921 5690, DD 
1 I579D01DF0236C0EDB0C93A839OE603201 1 21059D062823. OB 
347EFE 1 73802360023 1 0F43A839OE603C6BC572 1 0690 1 E28, 83 
4E234623E5C09E9772E1 I D20F3O93A8C9CB7C826006F2929, 05 
2929292B444D21569D1 1 579D3601 EOB0C93A879CB7C03A88, 83 
9CB7C0CO7095300ECD2E9B200F3E0132879OCDE29BC93E01, CE 
32889CC9AF32899CC93A879CB7O8CO2E9B202E3A879C3D21 , 69 
DB93CD399B56I4152812OD5C95380A3A859CB728043D3285. FA 
901 520EE3A879OFE! 028063C32879C1 8093E01 32889CAF32, 80 
879CC9080707060605050404030302020101003A889CB7O8. 09 
3021 2894CD399B561 4 1 5280FOD7095381 63A859C30328590. 7B 
1520F13A889CFE1028013C32889CC9AF32889CCO2E9B3E01. F0 
28023E0032899OO900010I 02020303040405050606070708. C8 
CO239BB7284DFE012849FE0528453a02l820AF328A9C3A86. D0 



1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1 100 
1110 
1 120 
1 130 
1 140 
1 150 
1 160 
1 170 
1 180 
1 190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 



139 



1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1530 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 



1820 
1830 
1840 
1850 
1860 
1870 



1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 



140 

150 

160 

170 

180 

190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 



9CC87F2B0BFEFB30073EFB32869C183EFE29280I3C32869C. 0C 
)8343E01328A9C3A869CCB7F200BFE0638073E0532859C18. A6 
1DFED728013D32869C18133A869CB7C8CB7F20063D32869C. B3 
1 8043C32869CC93A869CB7C8C87F20232 1 EF94C0399B56 1 4. 8C 
1 528 1 721 849CCD8795380B7EFEF02806341 520F2 1 804AF32. B3 
869CC9ED4421 EF94CD399B56 1 4 1 528 1 621 849CCDA795380A. AA 
7EB72806351520F31804AF32869CC90001000I0001010101.AE 
020202020303030303030303040404040404040404040404. 50 
040404040404040404CD2695D03A859C3DE6F832859C1 8F1 . 50 
ED4B849C78C60F47CDC495D879C60F4FCDC495C9CD4C95D0, F4 
3A859CE6F8C60832859C1 8F0ED4B849CCDC495D879C60F4F, 55 
CDC495C9C5ED4B849C05CDC495380779C60F4FCDC495C1C9, C3 
C5ED4B849C78C61047CDC495380779C60F4FCOC495C1C9C5. 29 
ED4B849C79C6104FCDC49538)078C60747CDC495380778C6. 93 
0847CDC495C1 C9C5ED4B849C0DCDC495381 078C60747CDC4. 84 
95380778C60847CDC495C1C9C5E57eFEB83006CDB7977EFE. B6 
0AE 1 CI C93A989CB7C03E0432989C3A959CD608473E 1 8CDBC. 7 1 
9A4F90FE1038F57932959C21A19C2323237EFEFEC8FEFF20, B6 
F536002371233600C93A999CB728053D32999CC92A9A9C1 1. 12 
0200 1911 FFl 0CD489B38032 1 000F229A9C21 949C7EB72802. 5E 
35C93A9B9C4F3E 1591 772 1989C3521A19C2323237EFEFEC8. AC 
FEFF28F52323347E2B2BFE172«fEB36FF18E721A19C232323. 83 
7EFEFECaFEFF28F5234E23462B2BE5CD9E9706083600231 0. EA 
F8E 1 1 8E 1 06003A879CB720083A889CB72002060 1 7832969C. 3 1 
C93A969CB7C83A859CC60832859CC93E1 4CDBC9AB7 1 600CC, 07 
EA9606143A8C9CFE0A300206643A839CE607200A78CDBC9A. AB 
B7 1 60 1 CCEA963A839CE60320083EFFCDBC9AB7 1 602CCEA96. 02 
3A839CE603C03EFFCDBC9AB7 1 603CCEA96C93EF 1 CDBC9A4F, E8 
060021 BA9C2323237EFEFEC8FEFF20F57223712370C92 ISA. 77 
9C2323237EFEFEC8FEFF28F52323347E2B2BFEB038EB36FF. B5 
18E7ED4B849C110D0DCD4E9B21BA9C2323237EFEFEC8FEFF. 57 
28F51 1 1 B) B23CD8D972B30EBE5AFCDE29BE1 7E36FFCD1 39B. AB 
58976A977C9787972A8B9C113000B7ED523003210000228B.AA 
9CC92A8B9C1 10004B7ED523003210000228B9CC92A8B9C1 1. 89 
000419228B9CC93EFF32999CC97996BBD29C977823962BBA. 81 
D29C97C3B7C9C5CB21CB21CB21CB38CB19GB38C819CB38CB. 73 
1 92 1 569D09C1 C9C5CB38CB38CB38CB38CB 1 9CB38CB 1 9CB38, 5F 
08 1 92 1 569D09C1 C9 1 6003A8A9CB728023E02ED4B849CCD57. 9E 
98 1 43CCD579B 1 42 1 BA9C2323237EFEFE28 1 2FEFF28F4234E. DC 
23462B2BC604CD579B1418E506D9CD579BC92A9C9C01 1417. 4F 
CD 1 498C9C53E3CCD979AF50D0D0DCD729AF 1 CI 6F2600CD72. FA 
9AO9F33EC3213898329FFD22A0FDFBC921829C34CD069C3A. B5 
9E9CB7C821A1 9C347EFE3CC036002A9C9C23229C9CC9FFFF, 9F 
3C18183CFFFF7755404040405577FF7F7F7F7F7F7F7F6686, A2 
8686969696960007 1F3F7FFEFCF8F87C3F030000000000E0. D0 
F8FCF2612121337EFCF000000000000A0A0A0A0A0A0A0A0A. 80 
0A0A000000000000000000000 1 03030000 1 C3F3F 1 F0F0000, E3 



0006060606060007 1F3F4F858484GC7E3F0F0000000000E0.D8 
F8FCFE7F3F1F1F3EFCC000000000000A0A0A0A0A0A0A0A0A. 42 
0A0A000000000000000000301 13001000070FCFD79000000, 66 
0000000080C0C0000038FCFCF8F000000000000F0F0F0F00, 54 
00060606060601 0101 0303FF3F0F07070F0E1 81 020000000. E7 
008080FEF8E0C0C0E0E0301 008000A0A0A0A0A0A0A0A0A0A, C2 
0A0A0A0A0A00020E1F3F700F0F0F0F0F0F703F1F0E024070, F8 
F8FC0EF0F0F0F0F0F00EFCF87040030303020C0A0A0A0A1ZA. 9D 
0A0C02030303020E1F3F700F0F0F0F0F0F703F1F0E024070, E7 
F8FC0EF0F0F0F0F0F00EFCF87040030303020C080a080808. 93 
080C02030303020E1F3F700F0F0F0F0F0F703F1F0E024070, E5 
F8FC0EF0F0F0F0F0F00EFCF87040030303020C0505050505. 84 
050C02030303E53A07004FEBCD7101EB0608EO83EBCBECCD. C3 
7101 CBACE80608EDB3E1C9C5CDF699CBDACBA2CDF699CB9A. 20 
CBE2CDF699CBA201 1 00009EB0 1 080009EBC 1 1 0DFC34E2346, AS 
237E23B7C8FE0 1 28F4CD479A0C1 8F2F5E56069CB25C825CB. 70 
25CB3CCB 1 DCB3CCB 1 DCB3CCB 1 DCBDCCBE4C6A0CD7 70 1 E 1 F 1 , C5 
C9CD759ACD759ACD759ACD759A3E0ACD979AC630CD479A0D. 30 
C9F5D5C50608EB21000029CB27D2919A1910F7C1D1F1C9D5. CB 
C5l6005F0l00003E1008AFCB21CBi029CB127A93DAB19A57. 98 
03083DC2A 1 9A7A6069C1 D 1 C9D9082A56A0 1 1 093DCDE09A2B. AD 
2255A06C2e00081 6005FB72004ED5356A0CDE09A7CD9B7C9. 54 
444D2 1 00007AB7C4EB9A7829 1 73001 0929 1 7300 1 09231 730. 08 
010929173001092917300109291730010323173001032917, 32 
D009C9E3F5D5871 6005F1 95E2356EBD1 Fl E3C3AFCOD500B7. 9C 
C03CCDD500C9AFCDD8003CC8CDD8003CC9856FD024C3835F. FC 
D014C3814FD004C9E5B7EO52E1C9F578824779834FF1C9F5. CF 
C5D5E5261ECB22CB226A87875F057908CD959B08ED4100ED. 1A 
7900ED5926006B29290158A009EB0E00061C6C2600292909. AC 
CD9598EB06 1 0EDB3E1 Dl C 1 F 1 C9F33A07004F0C7CE6C00707. 8A 
ED793E8EED79ED697CE63FF640ED790OFBC9160006D9CD57. 15 
981 4CB6A28F8C9F3AF3258A43D325BA43E03325CA4FB3E07. BE 
1 EBFGD93003E081 E00CD93003CFE0B20F8C3F5E5C5F32 1 5B. 35 



2280 ■A4BE3015772B2B2836028708004F215A3C094E2346ED4359. 13 

2290 ■A4FBC1 £1 F1C921 5CA435C036033A58A4B7C83D201 B3258A4. A5 

2300 ■ 3D325BA43E07 1 EBFCO93003E081 E00CD93003GFE0B20r8C9. DA 

231 ■ 2A59A4AF5ECD93003C235ECD93003E06235ECD33003C23FE. 33 

2320 ■0320F67EB72005232253A4C93E013258A4C36A9C7C9CD600. AE 

2330 ■00B80F008F0000B80F01470000B80F00550000B80F006B00. B3 

2340 ■00B80F01AA0000B80F01274872B4EE000D0001870905001 1. 71 




«f'P75S»136'^-i>'(Z|S« 



5 SCREEN5. 2. 0:COLOR t 5, 1 , 1 : KEYOFF 

10 CALL TURBO ON 

40 SCREEN5, 2 : FORL=0TO1 6:A$ = " " : FORI=0TO31 

;READ B$:B=VAL ("&h"+B$) :A$=AJ+CHR$ (B) :NE 

XTI:SPRITE$(L)=A$:NEXTL 

100 SOUND 6. 25:SOUND7, &B10100011 :S0UND8, 

0:SOUND1 1, 1 18:S0UND12, 21 :S0UND13. 8:S0UND 

5, 1 200 

500 DATA 00, 00. 00. 00, 00, 00. 03, 01. 02, 07, 

C. 3F. 4E, F0. 00. 00. 00. 00, 00. 00, 01. 03. 02. ED 

. AF. 76. 88. 8F. 8C, 73, 04.00 

510 DATA 00. 00. 00. 80. C0. 41. B3. F5. 6E. 1 1. F 

1.31.CE. 40.00. 00. 00, 00. 00.00. 40, C0. A0. 78 

, BF, 70. 8C, 00. 00. 00, 00. 00 

520 DATA 00. 00. 00. 00. 00. 00. 03. 01. 04. 1 F. 3 

G, E7. 1 8. 00. 00. 00. 00, 00. 00, 00. 01 , 03. 02, CD 

, AF. 76. 88. 8F. 8C. 73. 04, 00 

530 DATA 00, 00. 00. 00. 80. C0. 40. B3. F5. 6E. 1 

1, Fl. 31. CE. 20. 00, 00. 00. 00. 00. 00. 00. C0, 80 

. 60. F8, 2E. E7. 18. 00.00. 00 

540 DATA 00. 00. 00. 00. 02. 03. 05. AF, FC. 0E. 3 

1. 00. 00. 00. 00. 00, 00, 00, 00. 01. 03. 82. CD. AF 

. 76. 88. 8F. 8C, 73. 04, 00. 00 

550 DATA 00, 00. 00. 00. 80. C0, 40. B3. F5. 6E. 1 

1. Fl. 31, CE. 20. 00. 00. 00. 00. 00. 00. 00. C0, 80 

, 40, E0. 30. FC. 72. 0F. 00, 00 

560 DATA 00. 00. 00, 00, 00, 00. 01, 00, 00. 00, 

0, 00, 00, 00. 00, 00, 00. 00, 00. 00, 00. 00. 00, 00 



570 DATA 00, 00. 00, 00 
0, 00, 00. 00. 00. 00. 00. 



580 DATA 00 
0, 00, 00. 00. 



i, 01. 03, 01, 00. 00. 
00, 00, 00, 00, 80, 00 
)0, 00 

). 03. 07. 07, 07. 03. 00. 
00. 00. 00. 80. C0. 00. C0 



)0, 07, 0F. IF, IF, IF, IF, 1 F. 
). 00, 00. 00. 00. E0. F0, F0. F0 



590 DATA 00. i 

F. 07, 00, 00, 0i 

. F0, F0. E0, 00, 00, 00, 00, 00 

600 DATA 00. 07, 1 F, 3F, 3F. 7F, 7F. 7F. 7F, 7F. 3 

F. 3F, 1 F, 07. 00, 00. 00, C0. F0. F8. F8. FC. FC. FC 

. FC, FO. F8. F8. F0, 00, 00, 00 

610 DATA 07.01,01,01,01,01,01.01,01,01.0 

1. 01, 01. 01. 01. 07. E0. 80. 80. 80. 80. 80, 80, 80 

. 80. 80. 80. 80. 80, 80, 80, E0 

620 DATA 00.00.00, 18. 1 E, 1 F. 1 F. 1 F, 1 F, 1 F, 1 

F, 1 E. 1 8. 00. 00. 00. 00. 00. 00. 00. 00, 80, E0, F8 

. F8, E0. 80, 00, 00, 00, 00, 00 



630 DATA 00. 00. 00, 00, 21, 12, 0F, 30, F0. 0E. 

0, 00, 00, 00. 00, 00, 00, 00, 00. 00, 84, 48, F0, 8C 
, 8F, 70, 00. 00, 00, 00, 00, 00 

640 DATA 07. 70, 77, 77. 77. 77. 77, 07. 31. 60, 5 
7, 1 7. 20. 32. 6 1 . 4 1 . E0, 0E. EE, EE, EE. EE. EE, E0 
, 18. 6C, F4, F0, 68. 98, 0C, 04 
650 DATA 00, 07. 07, 03. 02. 26. 5E. 5E. 26. 00. 

1 , 02. 03, 07. 07, 0F. 00. 80. C0. E0. 1 0. EF. F7. F7 
. 16, C3. FE. 7F. BF, DE, E0. FE 

660 DATA 00, 00. 00, 00. 3C. BF. 04. El. 0E, F3. 7 

0. AE. E0, 00. 00. 00. 00, 00, 00, 00, 00, 00, 80, C0 

, 30, FC, C0, 00, 00, 00, 00. 00 

1000 X=50:Y=80 

1005 LINE(0, 0)-(255. 255). 1. BF 

1010 FORI=1TO100:A=X*I*I/10000:B=Y*I*I/1 

0000:LINE{120-A. 1 00-B) - (1 20+A. 100+B) :LIN 

E(120+A. 100-B)-(120-A. 100+B) :NEXTI 

1020 FORI =1TO10: LINE (120-A+I. 100-B)-(120 
+A+I. 100+B} : LINE (120-A+I. 100+B) - {1 20+A+I 
. 100-B) :NEXTI:C0L0R=(1. 7. 7. 7) 

1025 CALL TURBO OFF 

1026 0PEN"GRP:''AS#1 : PSET (70. 120) .-PRINTftl 
. "PUSU SPACE KEY" 

1030 FORI=7TO0STEP-1 :eOLOR= (1, I. I, I) :FOR 

L=0TO80:NEXTL. I 

1040 IF STRIG(0)+STRIG(1)=0 THEN 1040 

1050 CL0SE#1 

1060 RUN"3D" 



X 



5 DEFINT M 

10 SCREEN5:M=1 

20 CALL TURBO ON (M) 

25 OIM XI (15).X2(15). Yl (1 5) . Y2 (1 5) . Z (1 5) 
.C (15), MX (15). MY (15). NX (15). NY (15). EC (3) 

26 KZ=2 

27 PUTSPRITE10. (1 6. 190) . 1 5. 13: PUTSPRITEl 
1. (34. 190). 15. 13 

30 R=RNO(-TIME) :K=1 :X=0: Y=l 90: Z=0 :SP=0: E 

= 12:T=1 :EC(0)=0:EG(1) =5:EC(2)=11 :EC(3)=8 

: EC (4) = 1 5 : EK= 1 : MX=0 : MY=0 : CX=0 : CY=0 : OT=0 : 

OU=0 

45 IF M=10RM=3 THEN F0RI = 1T04:X1 (I) =-200 

:Y1 (I)=-200:X2(I)=200:Y2(I) =200 :C (I) =4:Z 

(I)=I*22:NEXTI 

50 PUTSPRITE7. (1 8, 1 6) . 1 5. 1 1 : PUTSPRITE8. ( 

240, 16). 15. 1 1 :PUTSPRITE9. (32, 16), 15, 12:F 

ORI=0TO2:PUTSPRITE2+I, (230, 190-1*16), 8, 1 

: FORL=0TO1 000 : NEXTL : NEXT I 

60 F0RI = 1T05+ (M=l) + (M=3) : IFZ (I) =-1 THEN65 

ELSELINE(MX(I),MY(I))-(NX(I),NY(I)). l.B: 

IFZ(I)>0THEN70 

65 IFRND(1)*100<5THENX1 (I) = INT (RND (1 ) *25 

0)-200:Yl (I)=INT(RND(1)*250)-200:X2(I)=X 

1 {I)+150:Y2(I)=Y1 (I) + 1 50 :Z (I) =SP¥20:C (I) 



= INT(RND(1)*3) +1 :NEXTI:GOTO100:ELSEFORL = 
ITO50:NEXTL:Z(I) =-1 : NEXT I : GOTO 1 00 

70 Z(I)=Z(I)+SP/20:AX=(X1 (I) -X) *Z (I) *Z (I 
)/10000+120 

71 BX=(X2(I)-X) *Z(I)*Z(I)/10000+120 

72 AY= (Yl (I) -Y) *Z(I) *Z (I) /I 0000+1 00 

73 BY= (Y2 (I) -Y) *Z(I) *Z (I) /I 0000+1 00 

80 LINE (AX, AY) - (BX, BY). EC (C (I) ) . B :MX (I) = 

AXiNXd) =BX:MY(I) =AY:NY(I)=BY 

90 IF Z(I)>90 THEN 0T=5:0N MG0T0121, 120. 

121 ELSE NEXTI 

100 K$ = INKEY$:IF K$ = '*E"* THEN 200 

102 IF OT=0 THEN S0UND9. 0:GOTO1 05 

103 SOUND 9, 12-OT*2 

104 OT=OT+(OT>0) 

105 IF OU=0 THEN SOUND10, 0:GOTO1 09 

106 SOUND 4, OU*10:SOUND10,OU*3:OU=OU-] 

109 IF K$ = '"M" OR K$ = ''m" OR STRIG (3)=-l 
THEN IF SP>70 THEN SP=101 

1 1 GOTO 1 30 

120 IF XI (I)<X+16AN0X2(I)>X-16AN0Y1 (I)<Y 
+6AN0Y2(I)>Y-5THEN 200 ELSE Z(I)=0:NEXTI 
:GOTO 100 

121 IF XI (I)<XANDX2(I)>XAN0Y1 (I)<YAN0Y2( 
I)>YTHEN ON MGOT0122. 122, 123 ELSE 200 

122 XI (I)=MX-200+EK*8:X2(I) =MX+200-EK*8: 
Yl (I)=MY-200+EK*8:Y2(I)=MY+200-EK*8:Z(I) 
=Z(I)-90:C(I)=4:MX=MX+CX:MY=MY+CY:NEXTI: 
GOTO 100 

123 XI (I) =MX-200+EK«12;X2(I) =MX+200-EK*l 
2:Y1 (I)=MY-50-ABS((K¥3)MOD200-100) :Y2(I) 
=MY+50+ABS((K¥3)MOD200-100) :Z(I}=Z(I) -90 
:C(I)=4:MX=MX+CX:MY=MY+CY:NEXTI:GOTO100 

130 IF Z=0 THEN 140 

131 Z=Z+SP/20:A= (EA-X) *Z*Z/1 0000+1 20: B= ( 
EB-Y) *Z*Z/1 0000+1 00: IF A<0 OR A>255 OR B 
<0 OR B>209 THEN PUTSPRITE 6. (0. 0) , 0ELSE 

PUTSPRITE 6. (A-8. B-8). INT(RND (I) *14)+2, 
1 0+ (Z<20) + (Z<40) + (Z<60) + (Z<80) 

132 IF Z>90 THEN 135 ELSE 145 

135 IF EA>X-26ANDEA<X+26ANDEB>Y-26AN0EB< 
Y+26THENPUTSPRITEE¥4+2, (230, 190-(E¥4) *16 
). 8, 10:E=E+4:OU=5: IFE>1 5THENE=1 5 

136 PUTSPRITEE¥4+2, (230. 1 90- (E¥4) *1 6) . EC 
(EM004) , 10:PUTSPRITE6. (0. 0) , 0:Z=0:GOTO14 

5 

140 IF K> (300- (M=10RM=3) *150) *EK THEN EK 

= EK+1 :Z=1 :EA=MX+INT (RND (0*100) -50:EB=MY 

+ INT(RND(1)*100)-50:PUTSPRITE9. (32+(EK-l 

) * (16- (M=10RM=3) *18), 16) , 15. 12 

145 K=K+SP/20:T=T+1 :IF T>35 THEN E=E+ (E> 

0) :T=1 :PUTSPRITE E¥4+2. (230. 1 90- (E¥4) *1 6 

), EC(EM0D4). 10:CX=INT(RND(1}*160)-80:CY= 

INT (RND(l) *160) -80 

147 IF EK=(14+(M=10RM=3)*6) THEN 1=5+ (M= 

1) : NEXT I :G0T0 300 

150 S=STICK (0)+STICK(l) +STICK (2) :A=(S=2) 

+ (S=3) + (S=4) - {S=6) - (S=7) - (S=8) :B= (S=8) + ( 
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S=l ) + (S=2) - (S=4) - (S=5) - (S=6) 

155 PUTSPRITE0. (1 04. 92) . 1 5, 2-A*2: PUTSPRI 

TEl. (120. 92) , 15, 3-A*2:S0UND8. 10:SOUND 6. 
24-SP¥5 

160 A=A*I0:B=B*10+ (E=0) *12 

161 IF SP=0 THEN B=4:A=0 ELSE 165 

162 IF Y<0 THEN SP=20 

165 IF STRIG(0) +STRIG(1} :=0ANDSP>1 THEN S 

P=SP-(SP<80) ELSE SP=SP+ (SP>20) *3 

167 IF M^l OR M=3 THEN X=X-A: Y=Y-B:GOTO 

60 

170 IF A=0 AND B=0 THEN 172 ELSE LINE(GA 

. GO) - (GB. GD) . 1, B: LINE (El. Fl)- (120. 100). 1 

:LINE(E2. F2) -(120. 100). 1 :LINE(E3. F3) -(12 

0. 100), 1 :LINE(E4. F4) - (120, 100), 1 

172 X=X-A:Y=Y~B 

175 GA=-80-X:GB=320-X:GC=-100-Y:GD=300-Y 
: El =GA: Fl =GC: E2=GA : F2=GD : E3=GB : F3=GC ; E4= 
GB:F4=GD 

176 IFGA<0ORGC<0THEN Fl =1 00- (1 00-GC) *1 20 
/ (120-GA) :IF FK0 THEN El =1 20* (-FI) / (1 00 
-Fl) 

177 IFGA<0ORGD>209THEN F2=l 00+ (GD-1 00) *1 
20/ (120-GA) : IF F2>209 THEN E2=l 20* (F2-20 
9)/(F2-100) 

178 IFGB>255ORGC<0THEN F3=l 00- (1 00-GC) *1 
35/ (GB-120) : IF F3<0 THEN E3=255-l 35* (-F3 
)/(100-F3) 

179 IFGB>255ORGD>209THENF4=100+ (GD-100) * 
135/ (GB-120} : IFF4>209THENE4=255-1 35* (F4- 
209)/ (F4-100) 

180 LINE(GA, GC)-(GB. GD). 1 5. B: L INE (El , Fl ) 
-(120. 100). 15:LINE(E2, F2) - (1 20. 100) , 1 5: L 
INE(E3. F3) -(120. 100), 15: LINE (E4. F4) - (120 
, 100). 15: IFX<-1840RX>1840RY<-1960RY>194T 
HEN200ELSE60 

200 S0UND6. 10:FORI = 100TO200:SOUND8. 1 5- (I 
M0D5) *2- I ¥40 : FORL= 1 TOl 5 : NEXTL : PUTSPR ITE0 
. (104. I), 15. 2: PUTSPRI TEl, (120, I). 1 5. 3 : PU 
TSPRITE6, (INT(RND(1) *64) +88. INT(RND (1) *6 
4) +1-32). INT (RND(l) *14) +2. INT(RND (1) *5) + 
6:NEXTI:S0UND8, 0:SOUND9. 0:SOUND10. 

201 IFKZ=0THEN1000ELSELINE(0. 0) - (255, 220 
). l.BF:KZ=KZ-l : PUTSPRITEl 0+KZ. (0, 0), 0:FO 
RI = 1T07:Z(I) =0:PUTSPRITEI-1, (0, 0),0:NEXT 
I :FORI=1TO2500:NEXTI :GOTO30 

205 GOTO1000 

300 S0UND8. : S0UND9. : SOUND 1 0. : FORJ= 1 TO 

1 : FOR I^7TO0STEP- 1 : FORL= 1 TO50 : NEXTL : COLO 

R= (15. I. I. I) :NEXTI:FORI = 0TO7:FORL=1TO50: 

NEXTL:COLOR= (15. I. I. I) :NEXTI :NEXTJ 

310 M=M+1 :FORI=1TO6:Z(I)=0:NEXTI:LINE(0. 

0)- (255. 220). 1, BF:IF M=4 THEN 1000 ELSE3 



CALL TURBO OFF 

1002 IF M=4 THEN 1090 ELSE SCREEN 1 

1003 A$="GAME OVER" :FORI=25T08STEP-l : LOC 
ATEI, 10:PRINT"G " : F0RL=1 TO20:NEXTL :NEXTI 



1004 F0RI = 1T08:L0CATE9, 10:PRINTMID$ (A$, 1 

0-1. I) :FORL=1TO20: NEXTL :NEXTI 

1010 SOUND 7, &B101 10001 :S0UND6, 15 

1020 SOUND 8, 16 

1025 PLAY'"tl20". "tl20", "tl20" 

1030 PLAY''s9m2000116crl6rl6rl6crl6crl6cr 

16rl6r]6crI6crl 6crl6crl6crl 6crl6cr2". "o4 

Vl4116cdefg8vl2g8vl4defga8vl2a8vl4agffrl 

6gr 1 6gc8vl 2c8vl 4d8vl 2d8", "s9m2000n 6o5cc 

cccrl 6cceeeeerl 6eecdef gf edc4d4" 

1032 IF PLAY (0) =0THEN 1035 ELSE 1032 

1035 SOUND 7. &B101 11000 

1040 PLAY"18vl5o5cvl2cvl0c", "18vl5o5r64e 

vl2evl0e", " 18vl 5o5r32gvl 2gvl 09" 

1042 IF PLAY(2) =0THEN 1050 ELSE 1042 

1050 FORI=7TO0STEP-1 :COLOR= (15. I. I. I) :NE 

XTI :F0RL=1T015:NEXTL: SCREEN! :C0L0R=(15. 7 

, 7, 7) :RUN"3D-S" 

1090 CALL TURBO ON 

1095 SCREEN 5 

1100 FORL=1TO19:FORI=13TO0STEP-1 : LINE (I* 

10. 0) - (1*10+9. 212) . 14. BF: LINE (1*10+10. 0) 

- (1*10 + 19, 212), 1, BF: LINE (1*10+130, 0) - (I* 

10+139. 212). 14. BF: LINE (I* 10+ 140. 0)- (1*10 

+ 149. 212). 1. BF:PUTSPRITE0. (-16+L*13-I. 10 

0), 15. 15:PUTSPRITE1, (L*13-I, 100), 15. 16:N 

EXT I 

1110 LINE (0. 0) - (9. 212). 1. BF: NEXTL 

1120 PUTSPRITE0. (0. 0) . 0: PUTSPRITEl . (0.0) 



1 130 FORI 
+9. 212). 1 
12). 1. BF: 
. 14, BF:LI 
. BF:FORS= 
D(l) *212) 
1140 LINE 
1 150 FORI 
+9. 212), 1 
12) . 1. BF; 
0. RND(l) * 
1160 LINE 
1 170 CALL 
1 180 FORI 
1 190 FORL 
1200 FORL 
TL 

1210 NEXT 
1220 OPEN 
1230 PSET 
ons ! " 
1240 FORI 
1250 PSET 



= 13TO0STEP-1 :LINE (1*10, 0)- (1*10 
4, BF: LINE (I* 10+ 10, 0) - (1*10+19. 2 
LINE (I* 10+1 30. 0) - (1*10+139. 212) 
NE (1*10+140, 0) - (1*10+149. 212), 1 
1TO5:PSET(I*10+140+RND(1)*10. RN 
, 15:NEXTS 

(0. 0) - (9, 212). 1. BF:NEXTI 
= 13TO0STEP-1 :LINE(I*10. 0) - (1*10 
4. BF: LINE (1*10+10. 0)- (1*10+19, 2 
F0RS=1T05:PSET (1*1 0+1 0+RND (1 ) *1 
212), 15:NEXTS 
(0. 0) - (9. 212). 1. BF:NEXTI 
TURBO OFF 
=1TO10 

=0TO7:COLOR= (1. L. L, L) :NEXTL 
=7TO0STEP-1 :COLOR= (1. L. L. L) :NEX 

I 

"GRP:"AS#1 

(60. 80). 0:PRINT#1, "Congratulat i 

=1TO800:NEXTI 

(80. 100). 0:PRINT#1. "Produced By 



1260 FORI=1TO800:NEXTI 

1270 PSET (120, 120) , 0:PRINT#1. "C. G. A" 

1280 FORI=1TO4800:NEXTI 

1290 RUN"3D-S'' 
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